try-user-init ( file -- )

Vocabulary

command-line

Inputs

file

an object

Outputs

None

Definition

USING: assocs continuations kernel namespaces parser
source-files.errors ;

IN: command-line

: try-user-init ( file -- )
    [ delete-user-init-errors ] keep "user-init" get swap [
        [ ?run-file ] [
            <user-init-error> swap user-init-errors get set-at
            notify-error-observers
        ] recover
    ] curry when ;