Revert "ui.tools.listener: removing unnecessary spawn."

This reverts commit f8aa8038d3.
Breaks error handling: http://paste.factorcode.org/paste?id=2407
db4
Joe Groff 2011-11-15 12:35:25 -08:00
parent a248fc28a8
commit a1bb1fbd7a
1 changed files with 3 additions and 1 deletions

View File

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