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

vocabs: faster child-vocab?.

db4
John Benediktsson 2014-02-06 20:49:29 -08:00
parent a718127fd1
commit 88f163d28f
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/vocabs/vocabs.factor
View File

@ -111,8 +111,13 @@ ERROR: no-vocab name ;
sift ; sift ;
: child-vocab? ( prefix name -- ? ) : child-vocab? ( prefix name -- ? )
2dup = pick empty? or swap [ drop t ] [
[ 2drop t ] [ swap CHAR: . suffix head? ] if ; 2dup = [ 2drop t ] [
2dup head? [
length swap ?nth CHAR: . =
] [ 2drop f ] if
] if
] if-empty ;
: child-vocabs ( vocab -- seq ) : child-vocabs ( vocab -- seq )
vocab-name vocabs [ child-vocab? ] with filter ; vocab-name vocabs [ child-vocab? ] with filter ;