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

ui.tools.listener: removing unnecessary spawn.

db4
John Benediktsson 2011-11-14 10:16:15 -08:00
parent 5f735e4fcc
commit 4d0d1748f0
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 ; [ set-editor-string ] [ request-focus ] bi ;
: call-listener ( quot command -- ) : call-listener ( quot command -- )
get-ready-listener get-ready-listener dup wait-for-listener (call-listener) ;
'[ _ _ _ dup wait-for-listener (call-listener) ]
"Listener call" spawn drop ;
M: listener-command invoke-command ( target command -- ) M: listener-command invoke-command ( target command -- )
[ command-quot ] [ nip ] 2bi call-listener ; [ command-quot ] [ nip ] 2bi call-listener ;