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

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

@ -84,7 +84,7 @@ SYMBOL: load-help?
[ vocab-docs path+ ?run-file ] [ vocab-docs path+ ?run-file ]
[ ] [ docs-weren't-loaded ] [ ] [ docs-weren't-loaded ]
cleanup cleanup
] keep source-was-loaded ] keep docs-were-loaded
] [ ] [
2drop 2drop
] if ; ] if ;
@ -152,14 +152,14 @@ SYMBOL: load-help?
dup update-roots dup update-roots
dup modified-sources swap modified-docs ; dup modified-sources swap modified-docs ;
: require-each ( seq -- ) : require-all ( seq -- )
[ [ require ] each ] with-compiler-errors ; [ [ require ] each ] with-compiler-errors ;
: do-refresh ( modified-sources modified-docs -- ) : do-refresh ( modified-sources modified-docs -- )
2dup 2dup
[ f swap set-vocab-docs-loaded? ] each [ f swap set-vocab-docs-loaded? ] each
[ f swap set-vocab-source-loaded? ] each [ f swap set-vocab-source-loaded? ] each
append prune require-each ; append prune require-all ;
: refresh ( prefix -- ) to-refresh do-refresh ; : 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 ( -- ) : load-everything ( -- )
all-vocabs-seq all-vocabs-seq
[ vocab-name dangerous? not ] subset [ vocab-name dangerous? not ] subset
require-each ; require-all ;
: unrooted-child-vocabs ( prefix -- seq ) : unrooted-child-vocabs ( prefix -- seq )
dup empty? [ CHAR: . add ] unless dup empty? [ CHAR: . add ] unless
@ -137,7 +137,7 @@ M: vocab-link summary vocab-summary ;
: load-children ( prefix -- ) : load-children ( prefix -- )
all-child-vocabs values concat all-child-vocabs values concat
require-each ; require-all ;
: vocab-status-string ( vocab -- string ) : vocab-status-string ( vocab -- string )
{ {