change-underlying ( seq quot -- seq' )

Vocabulary

math.vectors.simd.private

Inputs

seq	an object
quot	an object

Outputs

seq'

an object

Definition

USING: accessors kernel ;

IN: math.vectors.simd.private

: change-underlying ( seq quot -- seq' )
    [ [ underlying>> ] ] dip compose keep new-underlying ;
    inline