( scratchpad ) :c
[ swap >c call -> c> drop ]
[
    (command-line) parse-command-line
    load-vocab-roots run-user-init "e" get [ eval ] when*
    ignore-cli-args? not script get and
    [ run-script ] [ "run" get run ] if* -> output-stream get
    [ stream-flush ] when* 0 exit
]
[
    [ datastack ] dip dip -> 0 0 check-datastack
    [ (( -- )) wrong-values ] unless
]
[ [ call ] dip -> ]
[ swap >n call -> ndrop ]
[ listen -> until-quit ]
[ swap >c call -> c> drop ]
[ read-quot -> [ ~quotation~ recover ] [ bye ] if* ]
read-quot-loop
read-quot-step
parse-lines-interactive
(parse-lines)
(parse-until)
parse-step
use+
[ swap >n call -> ndrop ]
[ [ compose ~quotation~ curry recover ] [ drop ] 2bi -> call ]
[ [ 2keep ] dip -> call ]
[ [ call ] 2dip -> ]
[ swap >c call -> c> drop ]
M\ vocab (load-vocab)
load-source
parse-file
parse-stream
parse-fresh
(parse-lines)
(parse-until)
parse-step
add-use
use+
M\ vocab (load-vocab)
load-source
parse-file
parse-stream
parse-fresh
(parse-lines)
(parse-until)
parse-step
add-use
use+
M\ vocab (load-vocab)
load-source
parse-file
parse-stream
parse-fresh
(parse-lines)
(parse-until)
parse-step
add-use
use+
M\ vocab (load-vocab)
load-source
require
M\ vocab (load-vocab)
load-source
parse-file
parse-stream
parse-fresh
(parse-lines)
(parse-until)
parse-step
add-use
use+
M\ vocab (load-vocab)
load-source
parse-file
parse-stream
parse-fresh
(parse-lines)
(parse-until)
parse-step
add-library
<library>
[
    63 getenv error-thread set-global
    continuation -> error-continuation set-global rethrow
]
( scratchpad )