Implement and document stream-peek

[factor.git] / basis / io / ports / ports.factor

diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index fbfbddef3fe20e39a208cd61d43ef789ee7f1e6b..2b6f0918ff88dd9300a539b985190d81171c4515 100644 (file)
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@@ -84,6 +84,8 @@ M: input-port stream-read
         ] [ 2nip ] if
     ] [ 2nip ] if ;
 
+M: input-port stream-peek [ stream-read ] with-input-rewind ;
+
 : read-until-step ( separators port -- string/f separator/f )
     dup wait-to-read [ 2drop f f ] [ buffer>> buffer-until ] if ;