help.html: "no-roots no-prefixes" has a name, "filter-vocabs".
parent
f96fb3bcc8
commit
cc0c5f2634
|
@ -127,7 +127,7 @@ M: pathname url-of
|
||||||
dup topic>filename utf8 [ help>html write-xml ] with-file-writer ;
|
dup topic>filename utf8 [ help>html write-xml ] with-file-writer ;
|
||||||
|
|
||||||
: all-vocabs-really ( -- seq )
|
: all-vocabs-really ( -- seq )
|
||||||
all-disk-vocabs-recursive no-roots no-prefixes
|
all-disk-vocabs-recursive filter-vocabs
|
||||||
[ vocab-name "scratchpad" = ] reject ;
|
[ vocab-name "scratchpad" = ] reject ;
|
||||||
|
|
||||||
: all-topics ( -- topics )
|
: all-topics ( -- topics )
|
||||||
|
|
Loading…
Reference in New Issue