stack-map ( n quot: ( obj -- obj' ) -- quot' )

Vocabulary

stack-as-data

Inputs

n	an object
quot	a quotation with stack effect ( obj -- obj' )

Outputs

quot'

an object

Definition

USING: combinators sequences ;

IN: stack-as-data

MACRO: stack-map ( n quot: ( obj -- obj' ) -- quot' )
    '[ _ ] replicate '[ _ spread ] ;