From 1958ae21a228feb5bdeac778e00303ac453c3913 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@shill.internal.stack-effects.com>
Date: Tue, 14 Apr 2009 21:01:47 -0500
Subject: [PATCH] Fix listener so its tail-recursive

---
 basis/listener/listener.factor | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index f388ce7a14..4234a0023b 100644
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@@ -115,14 +115,15 @@ SYMBOL: error-summary-hook
             '[ datastack _ with-datastack ]
             [ call-error-hook datastack ]
             recover
-            (listener)
-        ] when*
+        ] [ return ] if*
     ] [
         dup lexer-error?
-        [ call-error-hook datastack (listener) ]
+        [ call-error-hook datastack ]
         [ rethrow ]
         if
-    ] recover ;
+    ] recover
+
+    (listener) ;
 
 PRIVATE>