steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.streams.peek: Implement peek and peek1.

db4
Doug Coleman 2013-01-21 15:33:57 -08:00
parent 33c7032533
commit a4ac126d1f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/io/streams/peek/peek.factor
View File

@ -85,3 +85,6 @@ M: peek-stream stream-flush stream>> stream-flush ;
[ stream-read ] 2bi [ stream-read ] 2bi
[ reverse swap peeked>> push-all ] keep [ reverse swap peeked>> push-all ] keep
] if ; ] if ;
: peek1 ( -- seq ) input-stream get stream-peek1 ; inline
: peek ( n -- seq ) input-stream get stream-peek ; inline