Implement and document stream-peek

[factor.git] / basis / delegate / protocols / protocols.factor

diff --git a/basis/delegate/protocols/protocols.factor b/basis/delegate/protocols/protocols.factor
index 40054bc4b0f721858c81efe706880855898d83d3..92f9387130a58c4fb0465ef31d3e8017b50e347d 100644 (file)
--- a/basis/delegate/protocols/protocols.factor
+++ b/basis/delegate/protocols/protocols.factor
@@ -13,7 +13,8 @@ at* assoc-size >alist set-at assoc-clone-like
 delete-at clear-assoc new-assoc assoc-like ;
 
 PROTOCOL: input-stream-protocol
-stream-read1 stream-read stream-read-partial stream-readln
+stream-peek1 stream-peek stream-read1 stream-read
+stream-read-partial stream-readln
 stream-read-until ;
 
 PROTOCOL: output-stream-protocol