sequences: bound -> index-or-length

[factor.git] / basis / ui / tools / listener / listener.factor

diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index e366aa543a5772db451d4a80a0bc0bc9b00a8472..e87b06112b1571deafff6823b517e31cfb7541e1 100644 (file)
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -162,7 +162,7 @@ M:: interactor stream-read-unsafe ( n buf interactor -- count )
     n [ 0 ] [
         drop
         interactor interactor-read dup [ join-lines ] when
-        n bound [ head-slice 0 buf copy ] keep
+        n index-or-length [ head-slice 0 buf copy ] keep
     ] if-zero ;
 
 M: interactor stream-read1