make-copies ( values effect-in -- values' )

Vocabulary

stack-checker.inlining

Inputs

values	an object
effect-in	an object

Outputs

values'

an object

Definition

USING: kernel sequences stack-checker.backend
stack-checker.values ;

IN: stack-checker.inlining

: make-copies ( values effect-in -- values' )
    [ length cut* ] keep
    [ quotation-param? [ copy-value ] [ drop <value> ] if ] 2map
    [ length make-values ] dip append ;