From d2043d67d97914b8b3e70d39b51b7cd892d2bd17 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 21 Apr 2015 11:55:16 -0700 Subject: [PATCH] io.streams.peek: fix stack effect for [stream-]peek1. --- extra/io/streams/peek/peek.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/io/streams/peek/peek.factor b/extra/io/streams/peek/peek.factor index c768d2ccc74..06897f33336 100644 --- a/extra/io/streams/peek/peek.factor +++ b/extra/io/streams/peek/peek.factor @@ -68,7 +68,7 @@ M: peek-stream stream-flush stream>> stream-flush ; M: peek-stream stream-tell stream>> stream-tell ; M: peek-stream stream-seek stream>> stream-seek ; -: stream-peek1 ( stream -- ch ) +: stream-peek1 ( stream -- elt ) dup peeked>> [ dup stream>> stream-read1 [ [ 1vector over stream-clone-resizable >>peeked drop ] keep @@ -88,5 +88,5 @@ M: peek-stream stream-seek stream>> stream-seek ; [ reverse swap peeked>> push-all ] keep ] if ; -: peek1 ( -- seq ) input-stream get stream-peek1 ; inline +: peek1 ( -- elt ) input-stream get stream-peek1 ; inline : peek ( n -- seq ) input-stream get stream-peek ; inline