shaped-unary-op ( shaped quot -- result )


Vocabulary
arrays.shaped

Inputs
shapedan object
quotan object


Outputs
resultan object


Definition
USING: accessors kernel ;

IN: arrays.shaped

: shaped-unary-op ( shaped quot -- result )
[ >shaped-array ] dip [ underlying>> ] prepose
[ shape>> clone ] bi shaped-array boa ; inline