From 4d0d1748f0dbe83bd8f46a73d1dfab5b0339ad5c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 14 Nov 2011 10:16:15 -0800
Subject: [PATCH] ui.tools.listener: removing unnecessary spawn.
---
basis/ui/tools/listener/listener.factor | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index 2e5132c0e8..0371767dff 100644
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -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 ;