From dffdd3669411c73beff969e3a1897ce8fee17861 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 5 Dec 2016 16:00:37 -0800
Subject: [PATCH] locals.parser: use with-variables instead of with-scope.

---
 basis/locals/parser/parser.factor | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/basis/locals/parser/parser.factor b/basis/locals/parser/parser.factor
index 8f963cc4bc..9cd29f28d0 100644
--- a/basis/locals/parser/parser.factor
+++ b/basis/locals/parser/parser.factor
@@ -32,11 +32,12 @@ ERROR: invalid-local-name name ;
 SINGLETON: lambda-parser
 
 : with-lambda-scope ( assoc reader-quot: ( -- quot ) -- quot )
-    '[
-        in-lambda? on
-        lambda-parser quotation-parser set
+    H{
+        { in-lambda? t }
+        { quotation-parser lambda-parser }
+    } swap '[
         [ use-words @ ] [ unuse-words ] bi
-    ] with-scope ; inline
+    ] with-variables ; inline
 
 : (parse-lambda) ( assoc -- quot )
     [ \ ] parse-until >quotation ] with-lambda-scope ;