steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

locals.parser: maybe we can use unuse-words.

char-rename
John Benediktsson 2016-12-05 15:56:30 -08:00
parent 4717d39e69
commit 21985232a2
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/locals/parser/parser.factor
View File

@ -1,9 +1,9 @@
! Copyright (C) 2007, 2009 Slava Pestov, Eduardo Cavazos. ! Copyright (C) 2007, 2009 Slava Pestov, Eduardo Cavazos.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs combinators continuations USING: accessors arrays assocs effects.parser fry generic.parser
effects.parser fry generic.parser kernel lexer locals.errors kernel lexer locals.errors locals.rewrite.closures locals.types
locals.rewrite.closures locals.types make namespaces parser make namespaces parser quotations sequences splitting
quotations sequences splitting vocabs.parser words ; vocabs.parser words ;
IN: locals.parser IN: locals.parser
SYMBOL: in-lambda? SYMBOL: in-lambda?
@ -35,8 +35,7 @@ SINGLETON: lambda-parser
'[ '[
in-lambda? on in-lambda? on
lambda-parser quotation-parser set lambda-parser quotation-parser set
use-words @ [ use-words @ ] [ unuse-words ] bi
qualified-vocabs pop* ! can't use unuse-words here
] with-scope ; inline ] with-scope ; inline
: (parse-lambda) ( assoc -- quot ) : (parse-lambda) ( assoc -- quot )