Add 'ignore' restart to load-everything

db4
Slava Pestov 2008-01-30 02:44:10 -06:00
parent 4d88b8ba2c
commit a02920a3f7
1 changed files with 9 additions and 1 deletions

View File

@ -148,8 +148,16 @@ SYMBOL: load-help?
dup update-roots
dup modified-sources swap modified-docs ;
: require-restart { { "Ignore this vocabulary" t } } ;
: require-all ( seq -- )
[ [ require ] each ] with-compiler-errors ;
[
[
[ require ]
[ require-restart rethrow-restarts drop ]
recover
] each
] with-compiler-errors ;
: do-refresh ( modified-sources modified-docs -- )
2dup