steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.tools.listener: use ?first.

windows-drag
John Benediktsson 2019-03-16 20:33:16 -07:00
parent b942caf3d7
commit 447e30ad41
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/tools/listener/listener.factor
View File

@ -149,7 +149,7 @@ M: word (print-input)
[ interactor-yield ] [ interactor-finish ] bi ; [ interactor-yield ] [ interactor-finish ] bi ;
M: interactor stream-readln M: interactor stream-readln
interactor-read dup [ first ] when ; interactor-read ?first ;
: (call-listener) ( quot command listener -- ) : (call-listener) ( quot command listener -- )
input>> dup interactor-busy? [ 3drop ] [ input>> dup interactor-busy? [ 3drop ] [