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

vocabs.parser: sift the search-vocabs. 

Because non-existing private vocabs are in the search-vocabs list.
locals-and-roots
John Benediktsson 2016-03-31 08:36:23 -07:00
parent c12b73e929
commit fbfb42c768
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/vocabs/parser/parser.factor
View File

@ -192,7 +192,7 @@ TUPLE: ambiguous-use-error name words ;
[ (vocab-search-qualified) ] [ (vocab-search) ] 2bi append ; [ (vocab-search-qualified) ] [ (vocab-search) ] 2bi append ;
: vocab-search ( name manifest -- word/f ) : 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 ] } { 0 [ 2drop f ] }
{ 1 [ first nip ] } { 1 [ first nip ] }
[ [