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

ui.tools.listener: removing unnecessary spawn.

John Benediktsson 2011-11-14 10:16:15 -08:00
parent 2a690ec054
commit f8aa8038d3
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -270,9 +270,7 @@ M: string listener-input
[ set-editor-string ] [ request-focus ] bi ;
: call-listener ( quot command -- )
get-ready-listener
'[ _ _ _ dup wait-for-listener (call-listener) ]
"Listener call" spawn drop ;
get-ready-listener dup wait-for-listener (call-listener) ;
M: listener-command invoke-command ( target command -- )
[ command-quot ] [ nip ] 2bi call-listener ;