     original-error set-global
     error set-global ; inline
 
+CONSTANT: default-components
+    "math compiler threads help io tools ui ui.tools unicode handbook"
+
 [
     ! We time bootstrap
     nano-count

    vm-path file-name os windows? [ "." split1-last drop ] when
    ".image" append resource-path ;

: load-components ( -- )
    "include" "exclude"
    [ get-global " " split harvest ] bi@
    diff
    [ "bootstrap." prepend require ] each ;

: count-words ( pred -- )
    all-words swap count number>string write ; inline

: print-time ( us -- )
    1,000,000,000 /i


    default-image-name "output-image" set-global

    default-components "include" set-global
    "" "exclude" set-global

    strip-encodings
