io.streams.peek: Implement peek and peek1.

2013-01-21 15:33:57 -08:00 · 2013-01-21 15:33:57 -08:00 · a4ac126d1f
parent 33c7032533
commit a4ac126d1f
1 changed files with 3 additions and 0 deletions
--- a/extra/io/streams/peek/peek.factor
+++ b/extra/io/streams/peek/peek.factor
@ -85,3 +85,6 @@ M: peek-stream stream-flush stream>> stream-flush ;
        [ stream-read ] 2bi
        [ reverse swap peeked>> push-all ] keep
    ] if ;
+
+: peek1 ( -- seq ) input-stream get stream-peek1 ; inline
+: peek ( n -- seq ) input-stream get stream-peek ; inline