(prepare-swap) ( v1 v2 -- length v1-data v1-inc v2-data v2-inc v1 v2 )

Vocabulary

math.blas.vectors.private

Inputs

v1	an object
v2	an object

Outputs

length	an object
v1-data	an object
v1-inc	an object
v2-data	an object
v2-inc	an object
v1	an object
v2	an object

Definition

USING: kernel ;

IN: math.blas.vectors.private

: (prepare-swap)
    ( v1 v2 -- length v1-data v1-inc v2-data v2-inc v1 v2 )
    [ shorter-length ] [ datas-and-incs ] [ ] 2tri ;