( scratchpad ) :c
[ call -> stop ]
[ H{ } clone >n call -> ndrop ]
[ H{ } clone >n call -> ndrop ]
[ listen -> until-quit ]
[ swap >c call -> c> drop ]
[ read-quot -> [ ~quotation~ recover ] [ bye ] if* ]
[
    [ handle-interactive ] keep -> swap
    [ interactor-finish ] [ nip stream-read-quot ] if
]
[ >r call -> r> ]
[ tuck try-parse -> { ~array~ ~array~ ~quotation~ } cond ]
[ swap >c call -> c> drop ]
[ [ parse-lines in get ] with-compilation-unit -> in set ]
[ H{ } clone >n call -> ndrop ]
[
    finish-compilation-unit -> updated-definitions
    notify-definition-observers
]
[
    63 getenv error-thread set-global
    continuation -> error-continuation set-global rethrow
]