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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/vocabs/loader/loader.factor
View File

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