From a1bb1fbd7a75ae6ba3a22f783ac52ea66f3e0468 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Tue, 15 Nov 2011 12:35:25 -0800 Subject: [PATCH] Revert "ui.tools.listener: removing unnecessary spawn." This reverts commit f8aa8038d3de8fdb796c59f9fbda04e25edda1b3. Breaks error handling: http://paste.factorcode.org/paste?id=2407 --- basis/ui/tools/listener/listener.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor index 0371767dff..2e5132c0e8 100644 --- a/basis/ui/tools/listener/listener.factor +++ b/basis/ui/tools/listener/listener.factor @@ -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 ;