Fix listener so its tail-recursive

2009-04-14 21:01:47 -05:00 · 2009-04-14 21:01:47 -05:00 · 1958ae21a2
parent b5b80cd0e9
commit 1958ae21a2
1 changed files with 5 additions and 4 deletions
--- 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>