From a4ac126d1f6754ca74d96f67abdb5ab301866dfb Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 21 Jan 2013 15:33:57 -0800 Subject: [PATCH] io.streams.peek: Implement peek and peek1. --- extra/io/streams/peek/peek.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/extra/io/streams/peek/peek.factor b/extra/io/streams/peek/peek.factor index 886b4c0254..1568d66914 100644 --- 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