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

vocabs.hierarchy: fix (disk-vocabs) on subvocabs.

master
John Benediktsson 2020-06-26 20:12:40 -07:00
parent 35719d11b6
commit d8f7bd067d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -29,7 +29,7 @@ ERROR: vocab-root-required root ;
[ ensure-vocab-root ] [ check-vocab-name ] bi* ; [ ensure-vocab-root ] [ check-vocab-name ] bi* ;
: vocab-directory-entries ( root prefix -- vocab-path vocab-name entries ) : vocab-directory-entries ( root prefix -- vocab-path vocab-name entries )
[ ensure-vocab-root ] dip [ append-path ] keep [ ensure-vocab-root ] dip [ vocab-dir append-path ] keep
over dup exists? [ directory-entries ] [ drop { } ] if ; over dup exists? [ directory-entries ] [ drop { } ] if ;
: (disk-vocabs) ( root prefix -- seq ) : (disk-vocabs) ( root prefix -- seq )