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

Rename require-each to require-all

db4
Slava Pestov 2007-12-29 22:30:17 -05:00
parent 75695563ca
commit 529133559f
2 changed files with 5 additions and 5 deletions
core/vocabs/loader
extra/tools/browser

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

@ -84,7 +84,7 @@ SYMBOL: load-help?
[ vocab-docs path+ ?run-file ]
[ ] [ docs-weren't-loaded ]
cleanup
] keep source-was-loaded
] keep docs-were-loaded
] [
2drop
] if ;
@ -152,14 +152,14 @@ SYMBOL: load-help?
dup update-roots
dup modified-sources swap modified-docs ;
: require-each ( seq -- )
: require-all ( seq -- )
[ [ require ] each ] with-compiler-errors ;
: do-refresh ( modified-sources modified-docs -- )
2dup
[ f swap set-vocab-docs-loaded? ] each
[ f swap set-vocab-source-loaded? ] each
append prune require-each ;
append prune require-all ;
: refresh ( prefix -- ) to-refresh do-refresh ;

4
extra/tools/browser/browser.factor
View File

@ -117,7 +117,7 @@ M: vocab-link summary vocab-summary ;
: load-everything ( -- )
all-vocabs-seq
[ vocab-name dangerous? not ] subset
require-each ;
require-all ;
: unrooted-child-vocabs ( prefix -- seq )
dup empty? [ CHAR: . add ] unless
@ -137,7 +137,7 @@ M: vocab-link summary vocab-summary ;
: load-children ( prefix -- )
all-child-vocabs values concat
require-each ;
require-all ;
: vocab-status-string ( vocab -- string )
{