vocabs: words-named should't f suffix.

locals-and-roots
John Benediktsson 2016-03-29 13:14:24 -07:00
parent a63492e9c0
commit 7dbe6c177e
1 changed files with 1 additions and 1 deletions

View File

@ -104,7 +104,7 @@ ERROR: no-vocab name ;
[ values [ vocab-words-assoc at ] with map sift ]
[
[ ":" split1 swap ] dip at
[ vocab-words-assoc at suffix ] [ drop ] if*
[ vocab-words-assoc at [ suffix ] when* ] [ drop ] if*
] 2bi ;
: child-vocab? ( prefix name -- ? )