         "To define one, refer to \\ MAIN: help" print
     ] ?if ;
 
-SYMBOL: blacklist
-
-: require-all ( vocabs -- )
-    V{ } clone blacklist [ [ require ] each ] with-variable ;
-
 <PRIVATE
 
-: add-to-blacklist ( error vocab -- )
-    vocab-name blacklist get [ set-at ] [ 2drop ] if* ;
+SYMBOL: errorlist
+
+: add-to-errorlist ( error vocab -- )
+    vocab-name errorlist get [ set-at ] [ 2drop ] if* ;
 
 GENERIC: (require) ( name -- )
 


PRIVATE>

[
    dup vocab-name blacklist get at*
    [ rethrow ]
    [
        drop dup find-vocab-root

            dup docs-loaded?>> [ dup load-docs ] unless
            drop
        ] if
    ] [ [ swap add-to-errorlist ] keep rethrow ] recover ;

M: vocab-link (require)
    vocab-name (require) ;
