Paste: goto

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 ;