( scratchpad - auto ) :c
[ call -> stop ]
listener-thread
listener
(listener)
with-datastack
[ [ ~quotation~ dip call datastack ] dip -> continue-with ]
[ [ ~array~ like set-datastack ] dip call -> datastack ]
image.
M\ string <image-gadget>
load-jpeg
baseline-decompress
decode-macroblock
[ iterate-step -> iterate-next (each-integer) ]
[ -roll [ call ] 3dip -> ]
[ iterate-step -> iterate-next (each-integer) ]
[ -roll [ call ] 3dip -> ]
M\ sequence set-nth
bounds-error
[
    63 getenv error-thread set-global
    continuation -> error-continuation set-global rethrow
]