ui.tools.listener: use ?first.

diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index 89fe0cd74ab012c09d2a8ad66614252c97abe2b6..6e56407301b3b3c129c64b15dd919dcd9191547f 100644 (file)
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -149,7 +149,7 @@ M: word (print-input)
     [ interactor-yield ] [ interactor-finish ] bi ;
 
 M: interactor stream-readln
-    interactor-read dup [ first ] when ;
+    interactor-read ?first ;
 
 : (call-listener) ( quot command listener -- )
     input>> dup interactor-busy? [ 3drop ] [