io: Make stream-contents call stream-contents* and do the disposal in the top-level...

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

diff --git a/basis/delegate/protocols/protocols.factor b/basis/delegate/protocols/protocols.factor
index c496979dc206b599fc379a799eef88290935dc3d..eb2434cf0fe00fd8974db0f6a52fa1012d0b7ac6 100644 (file)
--- a/basis/delegate/protocols/protocols.factor
+++ b/basis/delegate/protocols/protocols.factor
@@ -14,7 +14,7 @@ delete-at clear-assoc new-assoc assoc-like ;
 
 PROTOCOL: input-stream-protocol
 stream-read1 stream-read-unsafe stream-read-partial-unsafe
-stream-readln stream-read-until stream-contents ;
+stream-readln stream-read-until stream-contents* ;
 
 PROTOCOL: output-stream-protocol
 stream-flush stream-write1 stream-write stream-nl ;