Loading resource:basis/bootstrap/bootstrap-error.factor
(U) [ c-to-factor => ]
    c-to-factor
(U) [
        2dup [
            ~quotation~ dip
            dup terminated?>> ~quotation~ ~quotation~ if
        ] 2dip => rot [ 2drop ] [ wrong-values ] if
    ]
    call-effect
(U) [
        [ ~quotation~ dip dip ] dip => dup terminated?>>
        [ 2drop f ]
        [ dup in>> length swap out>> length check-datastack ] if
    ]
(U) [ swap [ call ] dip => ]
    dip
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(U) [
        nano-count f parser-quiet? set-global
        default-image-name "output-image" set-global
        default-components "include" set-global
        "" "exclude" set-global
        strip-encodings (command-line) parse-command-line
        os windows? [ "windows" require ] when "staging" get
        [ "stage2: deployment mode" print ]
        [ "debugger" require "listener" require ] if
        load-components => nano-count over -
        core-bootstrap-time set-global
        run-bootstrap-init nano-count swap -
        bootstrap-time set-global print-report "staging" get [
            "resource:basis/bootstrap/finish-staging.factor"
            run-file
        ] [
            "resource:basis/bootstrap/finish-bootstrap.factor"
            run-file
        ] if f error set-global f original-error set-global
        f error-continuation set-global
        "output-image" get save-image-and-exit
    ]
(U) [ [ nip call ] 3keep => [ 1 + ] 2dip (each-integer) ]
(U) [ swap [ 2dip ] dip => ]
    3dip
(U) [ swap [ dip ] dip => ]
    2dip
(U) [ swap [ call ] dip => ]
    dip
(O) M\ string require
(O) M\ vocab (require)
(O) load-source
(O) rethrow
(O) save-error
(O) M\ condition compute-restarts
(O) M\ lexer-error compute-restarts
(O) M\ object compute-fixups
(O) M\ object compute-fixups
(O) M\ object compute-fixups
(O) M\ object error>>
(O) no-method
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation => error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]
Generic word error>> does not define a method for the no-current-vocab-error class.
Dispatching on object: T{ no-current-vocab-error }

The following restarts are available:

:1      Define words in scratchpad vocabulary
:2      Load resource:basis/io/backend/unix/freebsd/freebsd.factor again
Factor 0.99 x86.64 (2154, heads/glib-nopython-6d6ea794f0, Feb  3 2022 14:58:25)
[Clang (GCC Clang 13.0.0)] on freebsd
IN: scratchpad