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 ) {