run-script ( file -- )

Vocabulary

command-line.startup

Inputs

file

an object

Outputs

None

Definition

USING: accessors combinators combinators.smart kernel namespaces
parser parser.notes prettyprint source-files ;

IN: command-line.startup

: run-script ( file -- )
    t parser-quiet? [
        [
            parse-file
            [ output>array datastack. ] ( quot -- ) call-effect
        ] [
            path>source-file main>>
            [ ( -- ) execute-effect ] when*
        ] bi
    ] with-variable ;