Untitled

( scratchpad ) :c
[
    boot do-init-hooks [ parse-command-line ] try
    [ run-user-init ] try [ "run" get run ] try -> stdio get
    [ stream-flush ] when*
]
[ swap >c call -> c> drop ]
[ H{ } clone >n call -> ndrop ]
[ listen -> until-quit ]
[ swap >c call -> c> drop ]
[ swap >c call -> c> drop ]
[ slip -> call ]
[ >r call -> r> ]
[ swap >c call -> c> drop ]
[ slip -> call ]
[ >r call -> r> ]
[
    init-clipboard init-win32-ui start-ui -> msg-obj get
    event-loop
]
[
    init-timers restore-windows?
    [ restore-windows ] [ init-ui ui-hook get call ] if
    -> ui-step
]
[ depth slip -> depth swap assert= ]
[ >r call -> r> ]
[ do-timers notify-queued -> layout-queued redraw-worlds ]
[ [ >r pop-back r> call ] 2keep -> dlist-slurp ]
[ >r >r call -> r> r> ]
[
    dup gadget-graft-state {
        { { f t } [ dup activate-control dup graft* ] }
        { { t f } [ dup activate-control dup ungraft* ] }
    } case -> dup gadget-graft-state first { f f } { t t } ?
    swap set-gadget-graft-state
]
[
    dup (open-window) -> dup world-title over set-title
(open-window)
get-rc
wglCreateContext
[ continuation -> error-continuation set-global rethrow ]