io.streams.peek: fix stack effect for [stream-]peek1.

diff --git a/extra/io/streams/peek/peek.factor b/extra/io/streams/peek/peek.factor
index c768d2ccc74e82a88b050a651318ce843acf5a8f..06897f33336d650e428e47ca766800ac6d29dd7e 100644 (file)
--- 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