Get all unit tests to pass

[factor.git] / library / ui / text / interactor.factor

diff --git a/library/ui/text/interactor.factor b/library/ui/text/interactor.factor
index 7a52067465f6df9180e3e8039ec101c2fa8d9b06..509c460068c39711c35333b0c263366d462970c5 100644 (file)
--- a/library/ui/text/interactor.factor
+++ b/library/ui/text/interactor.factor
@@ -58,6 +58,10 @@ M: interactor stream-readln
         [ over set-interactor-continuation stop ] callcc0
     ] when interactor-queue pop ;
 
+M: interactor stream-read
+    swap dup zero?
+    [ 2drop "" ] [ >r stream-readln r> head ] if ;
+
 interactor "interactor" {
     { "Evaluate" T{ key-down f f "RETURN" } [ interactor-commit ] }
     { "Clear input" T{ key-down f { C+ } "k" } [ control-model clear-doc ] }