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

vocabs: support qualified lookups in no-word restarts.

locals-and-roots
John Benediktsson 2016-03-29 12:37:24 -07:00
parent 3f803e3893
commit 7aa0e16df8
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/vocabs/vocabs.factor
View File

@ -100,9 +100,12 @@ ERROR: no-vocab name ;
dictionary get values [ vocab-words ] map concat ; dictionary get values [ vocab-words ] map concat ;
: words-named ( str -- seq ) : words-named ( str -- seq )
dictionary get values dictionary get
[ vocab-words-assoc at ] with map [ values [ vocab-words-assoc at ] with map sift ]
sift ; [
[ ":" split1 swap ] dip at
[ vocab-words-assoc at suffix ] [ drop ] if*
] 2bi ;
: child-vocab? ( prefix name -- ? ) : child-vocab? ( prefix name -- ? )
swap [ drop t ] [ swap [ drop t ] [