trim-stack ( label seq -- stack )

Vocabulary

stack-checker.inlining

Inputs

label	an object
seq	an object

Outputs

stack

an object

Definition

USING: accessors kernel sequences stack-checker.backend ;

IN: stack-checker.inlining

: trim-stack ( label seq -- stack )
    swap word>> required-stack-effect in>> length tail* ;