apply-stack-op ( state insn quote: ( n stack -- stack' ) -- state' )

Vocabulary

compiler.cfg.stacks.padding

Inputs

state	an object
insn	an object
quote	a quotation with stack effect ( n stack -- stack' )

Outputs

state'

an object

Definition

USING: accessors arrays compiler.cfg.stacks.local kernel
sequences ;

IN: compiler.cfg.stacks.padding

: apply-stack-op
    ( state insn quote: ( n stack -- stack' ) -- state' )
    [ [ first2 ] dip loc>> >loc< ] dip
    [ [ [ rot ] ] dip [ swap ] compose compose ]
    [ [ [ swap ] ] dip compose ] bi if 2array ; inline