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

locals.parser: use qualified-vocabs.

db4
John Benediktsson 2015-06-09 09:59:19 -07:00
parent d2716bbe6b
commit 72c95895e7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,7 +53,7 @@ SINGLETON: lambda-parser
[ make-local <def> ] H{ } make ; [ make-local <def> ] H{ } make ;
: update-locals ( assoc -- ) : update-locals ( assoc -- )
manifest get qualified-vocabs>> last words>> swap assoc-union! drop ; qualified-vocabs last words>> swap assoc-union! drop ;
: parse-def ( name/paren -- def ) : parse-def ( name/paren -- def )
dup "(" = [ drop parse-multi-def ] [ parse-single-def ] if update-locals ; dup "(" = [ drop parse-multi-def ] [ parse-single-def ] if update-locals ;