shaped-unary-op ( shaped quot -- )


Vocabulary
arrays.shaped

Inputs
shapedan object
quotan object


Outputs
None

Definition
USING: accessors kernel ;

IN: arrays.shaped

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