(change-frame) ( callstack quot -- callstack' )


Vocabulary
tools.continuations.private

Inputs
callstackan object
quotan object


Outputs
callstack'an object


Definition
USING: kernel kernel.private quotations ;

IN: tools.continuations.private

: (change-frame) ( callstack quot -- callstack' )
[ dup innermost-frame-executing quotation? ] dip
[ [ >innermost-frame< ] ] dip compose [ [ clone ] ] dip
[ [ set-innermost-frame-quotation ] [ ] tri ] curry compose
when ; inline