2007-09-20 18:09:08 -04:00
|
|
|
USING: help help.topics help.syntax help.crossref
|
2011-11-02 14:23:41 -04:00
|
|
|
help.definitions io io.files kernel namespaces sequences
|
|
|
|
parser vocabs vocabs.loader vocabs.loader.private accessors assocs ;
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: bootstrap.help
|
|
|
|
|
2008-06-08 16:32:55 -04:00
|
|
|
: load-help ( -- )
|
2009-01-08 18:03:06 -05:00
|
|
|
"help.lint" require
|
2009-03-24 05:11:08 -04:00
|
|
|
"help.vocabs" require
|
2008-01-05 19:37:13 -05:00
|
|
|
|
2007-09-20 18:09:08 -04:00
|
|
|
t load-help? set-global
|
|
|
|
|
2011-11-02 21:07:22 -04:00
|
|
|
[ dup lookup-vocab [ drop ] [ no-vocab ] if ] require-hook [
|
2008-11-23 01:04:18 -05:00
|
|
|
dictionary get values
|
|
|
|
[ docs-loaded?>> not ] filter
|
2008-03-18 21:27:09 -04:00
|
|
|
[ load-docs ] each
|
2008-02-15 19:07:10 -05:00
|
|
|
] with-variable ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
load-help
|