vocabs.hierarchy: use ensure-vocab-root/prefix.

master
John Benediktsson 2020-06-26 20:19:24 -07:00
parent d8f7bd067d
commit 3a091577ae
1 changed files with 1 additions and 1 deletions

View File

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