Fix listener so its tail-recursive

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index f388ce7a149b93f1be9e3b0d207ba6a84e75e457..4234a0023b4d9c09a38ed307b33e8f89fc263c7a 100644 (file)
--- 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>