ui.tools.listener: fix stream-read-until on interactor gadgets.

diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index 97f79115d071a4a93d2fbbe927c4d36077df7b2c..b17a1760fb1a10be60154ffcb4e59d7a9e796ed0 100644 (file)
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -167,6 +167,15 @@ M: interactor stream-read1
         [ nip first first ]
     } cond ;
 
+M: interactor stream-read-until ( seps stream -- seq sep/f )
+    swap '[
+        _ interactor-read [
+            "\n" join CHAR: \n suffix
+            [ _ member? ] dupd find
+            [ [ head ] when* ] dip
+        ] [ f f ] if* dup not
+    ] [ drop ] produce swap [ concat prepend ] dip ;
+
 M: interactor dispose drop ;
 
 : go-to-error ( interactor error -- )