[ call -> stop ] [ do -> while ] [ [ call ] 3dip -> ] [ swap >c call -> c> drop ] assert-depth with-datastack [ [ ~quotation~ dip call datastack ] dip -> continue-with ] [ [ ~array~ like set-datastack ] dip call -> datastack ] [ notify-queued -> layout-queued redraw-worlds send-queued-gestures ] [ do -> while ] [ [ call ] 3dip -> ] world=>graft* (open-window) setup-gl setup-pixel-format ChoosePixelFormat [ 63 getenv error-thread set-global continuation -> error-continuation set-global rethrow ]