From 21985232a27c6793e9e5bc3e1b144f0622b94323 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 5 Dec 2016 15:56:30 -0800 Subject: [PATCH] locals.parser: maybe we can use unuse-words. --- basis/locals/parser/parser.factor | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/basis/locals/parser/parser.factor b/basis/locals/parser/parser.factor index 1a48822d20..8f963cc4bc 100644 --- a/basis/locals/parser/parser.factor +++ b/basis/locals/parser/parser.factor @@ -1,9 +1,9 @@ ! Copyright (C) 2007, 2009 Slava Pestov, Eduardo Cavazos. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors arrays assocs combinators continuations -effects.parser fry generic.parser kernel lexer locals.errors -locals.rewrite.closures locals.types make namespaces parser -quotations sequences splitting vocabs.parser words ; +USING: accessors arrays assocs effects.parser fry generic.parser +kernel lexer locals.errors locals.rewrite.closures locals.types +make namespaces parser quotations sequences splitting +vocabs.parser words ; IN: locals.parser SYMBOL: in-lambda? @@ -35,8 +35,7 @@ SINGLETON: lambda-parser '[ in-lambda? on lambda-parser quotation-parser set - use-words @ - qualified-vocabs pop* ! can't use unuse-words here + [ use-words @ ] [ unuse-words ] bi ] with-scope ; inline : (parse-lambda) ( assoc -- quot )