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

Vocabulary

tools.continuations.private

Inputs

callstack	an object
quot	an 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