locals.parser: use with-words again.

diff --git a/core/locals/parser/parser.factor b/core/locals/parser/parser.factor
index fc506ce3d7615511f100e36ff2d84d11209772a2..84e02fdf5f28e76d7aec3364ca7bd9d8fe266129 100644 (file)
--- a/core/locals/parser/parser.factor
+++ b/core/locals/parser/parser.factor
@@ -35,9 +35,7 @@ SINGLETON: lambda-parser
     H{
         { in-lambda? t }
         { quotation-parser lambda-parser }
-    } swap '[
-        [ use-words @ ] [ unuse-words ] bi
-    ] with-variables ; inline
+    } -rot '[ _ _ with-words ] with-variables ; inline
 
 : (parse-lambda) ( assoc -- quot )
     [ \ ] parse-until >quotation ] with-lambda-scope ;