locals.parser: use qualified-vocabs.

2015-06-09 09:59:19 -07:00 · 2015-06-09 09:59:19 -07:00 · 72c95895e7
parent d2716bbe6b
commit 72c95895e7
1 changed files with 1 additions and 1 deletions
--- a/basis/locals/parser/parser.factor
+++ b/basis/locals/parser/parser.factor
@ -53,7 +53,7 @@ SINGLETON: lambda-parser
    [ make-local <def> ] H{ } make ;

 : 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 )
    dup "(" = [ drop parse-multi-def ] [ parse-single-def ] if update-locals ;