From 72c95895e760642746f3a07a781d5add6937c219 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 9 Jun 2015 09:59:19 -0700 Subject: [PATCH] locals.parser: use qualified-vocabs. --- basis/locals/parser/parser.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/locals/parser/parser.factor b/basis/locals/parser/parser.factor index 7ffc450624..ba7c89110d 100644 --- a/basis/locals/parser/parser.factor +++ b/basis/locals/parser/parser.factor @@ -53,7 +53,7 @@ SINGLETON: lambda-parser [ make-local ] 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 ;