             dup docs-loaded?>> [ dup load-docs ] unless
             drop
         ] if
-    ] [ [ swap add-to-blacklist ] keep rethrow ] recover ;
+    ] [ [ swap add-to-errorlist ] keep rethrow ] recover ;
 
 M: vocab-link (require)
     vocab-name (require) ;

        "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* ;

GENERIC: (require) ( name -- )



PRIVATE>

: require-all ( vocabs -- )
    V{ } clone errorlist [ [ require ] each ] with-variable ;

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