fix loader bug i introduced

db4
Doug Coleman 2008-08-30 21:01:54 -05:00
parent 6ed00241b6
commit 9695df7fbd
1 changed files with 4 additions and 4 deletions

View File

@ -52,17 +52,17 @@ H{ } clone root-cache set-global
SYMBOL: load-help?
: load-source ( vocab -- vocab )
f >>source-loaded?
f over set-vocab-source-loaded?
[ vocab-source-path [ parse-file ] [ [ ] ] if* ] keep
t >>source-loaded?
t over set-vocab-source-loaded?
[ [ % ] [ call ] if-bootstrapping ] dip ;
: load-docs ( vocab -- vocab )
load-help? get [
f >>docs-loaded?
f over set-vocab-docs-loaded?
[ vocab-docs-path [ ?run-file ] when* ] keep
t >>docs-loaded?
t over set-vocab-docs-loaded?
] when ;
: reload ( name -- )