lexer: change with-lexer to use with-variable.

2015-06-29 19:29:45 -07:00 · 2015-06-29 19:29:45 -07:00 · 527c4ea2f8
parent 0a7bfd3635
commit 527c4ea2f8
1 changed files with 2 additions and 1 deletions
--- a/core/lexer/lexer.factor
+++ b/core/lexer/lexer.factor
@ -178,4 +178,5 @@ M: lexer-error error-line [ error>> error-line ] [ line>> ] bi or ;
    [ last parsing-word-lexer-dump ] if-empty ;

 : with-lexer ( lexer quot -- newquot )
-    [ lexer set ] dip [ <lexer-error> rethrow ] recover ; inline
+    [ [ <lexer-error> rethrow ] recover ] curry
+    [ lexer ] dip with-variable ; inline