ui.tools.listener: use ?first.

2019-03-16 20:33:16 -07:00 · 2019-03-16 20:33:16 -07:00 · 447e30ad41
parent b942caf3d7
commit 447e30ad41
1 changed files with 1 additions and 1 deletions
--- 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 ] [