(bshift) ( v r k -- obj )

Vocabulary

partial-continuations

Inputs

v	an object
r	an object
k	an object

Outputs

obj

an object

Definition

USING: continuations kernel sequences ;

IN: partial-continuations

: (bshift) ( v r k -- obj )
    [ dup first -rot ] dip
    [ rot set-first continue-with ] callcc1
    [ drop nip set-first ] dip ;