Forgot to call load-failures.

db4
Slava Pestov 2008-02-07 18:06:53 -06:00
parent b08409884e
commit 6bbbd3f904
2 changed files with 2 additions and 2 deletions

View File

@ -178,7 +178,7 @@ SYMBOL: load-help?
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-all drop ; append prune require-all load-failures. ;
: refresh ( prefix -- ) to-refresh do-refresh ; : refresh ( prefix -- ) to-refresh do-refresh ;

View File

@ -163,7 +163,7 @@ MEMO: all-vocabs-seq ( -- seq )
all-child-vocabs values concat all-child-vocabs values concat
filter-dangerous filter-dangerous
require-all require-all
drop ; load-failures. ;
: vocab-status-string ( vocab -- string ) : vocab-status-string ( vocab -- string )
{ {