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

diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index 1dbcb0e2d3a4821595c8353ef45f75cbc2447a56..55ae061633b9e3d3eaf0da6dc5aa20d078ebe01c 100644 (file)
--- 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