basis: ERROR: changes.

[factor.git] / basis / io / streams / throwing / throwing.factor

diff --git a/basis/io/streams/throwing/throwing.factor b/basis/io/streams/throwing/throwing.factor
index 1d53d14d3ae415c721a174a43e0f0c192ba3c414..a7c340e1f181d8f45c0e7f88d7dbdfc2702be4bc 100644 (file)
--- a/basis/io/streams/throwing/throwing.factor
+++ b/basis/io/streams/throwing/throwing.factor
@@ -17,15 +17,15 @@ M: throws-on-eof-stream dispose stream>> dispose ;
 
 M:: throws-on-eof-stream stream-read1 ( stream -- obj )
     stream stream>> stream-read1
-    [ 1 stream \ read1 stream-exhausted ] unless* ;
+    [ 1 stream \ read1 throw-stream-exhausted ] unless* ;
 
 M:: throws-on-eof-stream stream-read-unsafe ( n buf stream -- count )
     n buf stream stream>> stream-read-unsafe
-    dup n = [ n stream \ stream-read-unsafe stream-exhausted ] unless ;
+    dup n = [ n stream \ stream-read-unsafe throw-stream-exhausted ] unless ;
 
 M:: throws-on-eof-stream stream-read-partial-unsafe ( n buf stream -- count )
     n buf stream stream>> stream-read-partial-unsafe
-    [ n stream \ stream-read-partial-unsafe stream-exhausted ] when-zero ;
+    [ n stream \ stream-read-partial-unsafe throw-stream-exhausted ] when-zero ;
 
 M: throws-on-eof-stream stream-tell
     stream>> stream-tell ;
@@ -41,7 +41,7 @@ M: throws-on-eof-stream stream-length
 
 M: throws-on-eof-stream stream-read-until
     [ stream>> stream-read-until ]
-    [ '[ length _ \ read-until stream-exhausted ] unless* ] bi ;
+    [ '[ length _ \ read-until throw-stream-exhausted ] unless* ] bi ;
 
 : stream-throw-on-eof ( ..a stream quot: ( ..a stream' -- ..b ) -- ..b )
     [ <throws-on-eof-stream> ] dip with-input-stream* ; inline