From fbfb42c76872fd7590bd3a9ac41b53aa88769c41 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 31 Mar 2016 08:36:23 -0700 Subject: [PATCH] vocabs.parser: sift the search-vocabs. Because non-existing private vocabs are in the search-vocabs list. --- core/vocabs/parser/parser.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor index 4249fe3c27..a8e7e12a70 100644 --- a/core/vocabs/parser/parser.factor +++ b/core/vocabs/parser/parser.factor @@ -192,7 +192,7 @@ TUPLE: ambiguous-use-error name words ; [ (vocab-search-qualified) ] [ (vocab-search) ] 2bi append ; : vocab-search ( name manifest -- word/f ) - dupd search-vocabs>> (vocab-search-full) dup length { + dupd search-vocabs>> sift (vocab-search-full) dup length { { 0 [ 2drop f ] } { 1 [ first nip ] } [ -- 2.34.1