From 3b5094a73c898207f6f9e49867a358b4883a7438 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 23 Jul 2012 11:07:03 -0700
Subject: [PATCH] ui.tools.listener: fix read-until with Ctrl-D.

---
 basis/ui/tools/listener/listener.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index b17a1760fb..654c167fe6 100644
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -172,9 +172,9 @@ M: interactor stream-read-until ( seps stream -- seq sep/f )
         _ interactor-read [
             "\n" join CHAR: \n suffix
             [ _ member? ] dupd find
-            [ [ head ] when* ] dip
-        ] [ f f ] if* dup not
-    ] [ drop ] produce swap [ concat prepend ] dip ;
+            [ [ head ] when* ] dip dup not
+        ] [ f f f ] if*
+    ] [ drop ] produce swap [ concat "" prepend-as ] dip ;
 
 M: interactor dispose drop ;