From 529133559f4707b496d9f2d5bf91f016880d05c7 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 29 Dec 2007 22:30:17 -0500
Subject: [PATCH] Rename require-each to require-all
---
core/vocabs/loader/loader.factor | 6 +++---
extra/tools/browser/browser.factor | 4 ++--
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 306f357b72..bb4e47d929 100755
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -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 ;
diff --git a/extra/tools/browser/browser.factor b/extra/tools/browser/browser.factor
index dea4e4251a..d7fbad67d0 100755
--- a/extra/tools/browser/browser.factor
+++ b/extra/tools/browser/browser.factor
@@ -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 )
{