     ] if
 
     [
-        "exclude" "include"
-        [ get-global " " split [ empty? not ] subset ] 2apply
-        seq-diff
-        [ "bootstrap." swap append require ] each
+        load-components
 
         run-bootstrap-init
 
-        "Compiling remaining words..." print flush
-
         "bootstrap.compiler" vocab [
-            vocabs [
-                words "compile" "compiler" lookup execute
-            ] each
+            compile-remaining
         ] when
     ] with-compiler-errors
     :errors

math.parser generic ;
IN: bootstrap.stage2

! Wrap everything in a catch which starts a listener so
! you can see what went wrong, instead of dealing with a
! fep
[
    vm file-name windows? [ "." split1 drop ] when
    ".image" append "output-image" set-global

    "math help compiler tools ui ui.tools io" "include" set-global
    "" "exclude" set-global

    parse-command-line

    "-no-crossref" cli-args member? [
        "Cross-referencing..." print flush
        H{ } clone crossref set-global
        xref-words
        xref-generics
        xref-sources
    ] unless

    ! Set dll paths
    wince? [ "windows.ce" require ] when

            ] [ print-error 1 exit ] recover
        ] set-boot-quot

        millis r> - dup bootstrap-time set-global
        print-report

        "output-image" get resource-path save-image-and-exit
    ] if
