steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix listener so its tail-recursive

db4
Slava Pestov 2009-04-14 21:01:47 -05:00
parent b5b80cd0e9
commit 1958ae21a2
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/listener/listener.factor
View File

@ -115,14 +115,15 @@ SYMBOL: error-summary-hook
'[ datastack _ with-datastack ] '[ datastack _ with-datastack ]
[ call-error-hook datastack ] [ call-error-hook datastack ]
recover recover
(listener) ] [ return ] if*
] when*
] [ ] [
dup lexer-error? dup lexer-error?
[ call-error-hook datastack (listener) ] [ call-error-hook datastack ]
[ rethrow ] [ rethrow ]
if if
] recover ; ] recover
(listener) ;
PRIVATE> PRIVATE>