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

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

db4
John Benediktsson 2015-06-29 19:29:45 -07:00
parent 0a7bfd3635
commit 527c4ea2f8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/lexer/lexer.factor
View File

@ -178,4 +178,5 @@ M: lexer-error error-line [ error>> error-line ] [ line>> ] bi or ;
[ last parsing-word-lexer-dump ] if-empty ; [ last parsing-word-lexer-dump ] if-empty ;
: with-lexer ( lexer quot -- newquot ) : with-lexer ( lexer quot -- newquot )
[ lexer set ] dip [ <lexer-error> rethrow ] recover ; inline [ [ <lexer-error> rethrow ] recover ] curry
[ lexer ] dip with-variable ; inline