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

locals.parser: use with-variables instead of with-scope.

char-rename
John Benediktsson 2016-12-05 16:00:37 -08:00
parent 21985232a2
commit dffdd36694
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -32,11 +32,12 @@ ERROR: invalid-local-name name ;
SINGLETON: lambda-parser SINGLETON: lambda-parser
: with-lambda-scope ( assoc reader-quot: ( -- quot ) -- quot ) : with-lambda-scope ( assoc reader-quot: ( -- quot ) -- quot )
'[ H{
in-lambda? on { in-lambda? t }
lambda-parser quotation-parser set { quotation-parser lambda-parser }
} swap '[
[ use-words @ ] [ unuse-words ] bi [ use-words @ ] [ unuse-words ] bi
] with-scope ; inline ] with-variables ; inline
: (parse-lambda) ( assoc -- quot ) : (parse-lambda) ( assoc -- quot )
[ \ ] parse-until >quotation ] with-lambda-scope ; [ \ ] parse-until >quotation ] with-lambda-scope ;