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

vocabs: adding 'parent-vocab?' and 'parent-vocabs'.

db4
John Benediktsson 2011-09-25 18:32:03 -07:00
parent 82e34082ec
commit 46df742317
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/vocabs/vocabs-tests.factor
View File

@ -3,3 +3,11 @@ USING: vocabs tools.test ;
IN: vocabs.tests IN: vocabs.tests
[ f ] [ "kernel" vocab-main ] unit-test [ f ] [ "kernel" vocab-main ] unit-test
[ t ] [ "" "" child-vocab? ] unit-test
[ t ] [ "" "io.files" child-vocab? ] unit-test
[ t ] [ "io" "io.files" child-vocab? ] unit-test
[ f ] [ "io.files" "io" child-vocab? ] unit-test
[ t ] [ "io.files" "io" parent-vocab? ] unit-test
[ f ] [ "io" "io.files" parent-vocab? ] unit-test

6
core/vocabs/vocabs.factor
View File

@ -111,6 +111,12 @@ ERROR: no-vocab name ;
: child-vocabs ( vocab -- seq ) : child-vocabs ( vocab -- seq )
vocab-name vocabs [ child-vocab? ] with filter ; vocab-name vocabs [ child-vocab? ] with filter ;
: parent-vocab? ( suffix name -- ? )
swap child-vocab? ;
: parent-vocabs ( vocab -- seq )
vocab-name vocabs [ parent-vocab? ] with filter ;
GENERIC: >vocab-link ( name -- vocab ) GENERIC: >vocab-link ( name -- vocab )
M: vocab-spec >vocab-link ; M: vocab-spec >vocab-link ;