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

vocabs.hierarchy: ensure-valid-root only once per root.

db4
John Benediktsson 2012-07-15 16:17:29 -07:00
parent d539aa9311
commit bf3f466688
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/vocabs/hierarchy/hierarchy.factor
View File

@ -37,7 +37,7 @@ ERROR: vocab-root-required root ;
[ ensure-vocab-root ] [ check-vocab-name ] bi* ;
: (child-vocabs) ( root prefix -- vocabs )
ensure-vocab-root/prefix
check-vocab-name
[ vocab-dir append-path dup exists? [ vocab-subdirs ] [ drop { } ] if ]
[ nip [ "." append '[ _ prepend ] map! ] unless-empty ]
[ drop '[ _ over vocab-dir? [ >vocab-link ] [ <vocab-prefix> ] if ] map! ]
@ -48,6 +48,7 @@ ERROR: vocab-root-required root ;
[ ((child-vocabs-recursive)) ] with each ;
: (child-vocabs-recursive) ( root prefix -- seq )
[ ensure-vocab-root ] dip
[ ((child-vocabs-recursive)) ] { } make ;
: no-rooted ( seq -- seq' ) [ find-vocab-root not ] filter ;