IN: getcc USING: continuations kernel arrays sequences ; : label-with ( obj -- obj label ) [ swap 2array ] curry callcc1 first2 ; : goto-with ( obj label -- * ) [ 2array ] keep continue-with ; : label ( -- label ) [ ] callcc1 ; : goto ( label -- * ) dup continue-with ;