From dffdd3669411c73beff969e3a1897ce8fee17861 Mon Sep 17 00:00:00 2001 From: John Benediktsson 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 ;