     dup first vocab-heading.
     dup second print-error
     drop ;
-    ! third "Traceback" swap write-object ;
 
 : load-failures. ( failures -- )
     [ load-error. nl ] each ;

    vocab-name (load-vocab) ;

TUPLE: blacklisted-vocab name ;
!
: blacklisted-vocab ( name -- * )
    \ blacklisted-vocab construct-boa throw ;


    [
        V{ } clone blacklist set
        [
            [ require ]
            [ >r vocab-name r> 2array blacklist get push ]
            recover
        ] each
        blacklist get
    ] with-compiler-errors ;

: do-refresh ( modified-sources modified-docs -- )
