io.streams.peek: Implement peek and peek1.

diff --git a/extra/io/streams/peek/peek.factor b/extra/io/streams/peek/peek.factor
index 886b4c0254d206044ea15b0e4eaf0cf52fff2a88..1568d669147b31a51d6dc1a91db47680e63417f1 100644 (file)
--- 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