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

slavapestov · Apr 21, 2015 · d2043d6 · d2043d6
1 parent 7c2d4ad
commit d2043d6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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