cord-append ( seq1 seq2 -- cord )

Vocabulary

sequences.cords

Inputs

seq1	an object
seq2	an object

Outputs

cord

an object

Definition

IN: sequences.cords

GENERIC: cord-append ( seq1 seq2 -- cord )

Methods

USING: classes kernel math.vectors.simd math.vectors.simd.cords
sequences.cords ;

M: char-16 cord-append
    2dup [ char-16 instance? ] both?
    [ char-32 boa ] [ generic-cord boa ] if ; inline


USING: classes kernel math.vectors.simd math.vectors.simd.cords
sequences.cords ;

M: double-2 cord-append
    2dup [ double-2 instance? ] both?
    [ double-4 boa ] [ generic-cord boa ] if ; inline


USING: classes kernel math.vectors.simd math.vectors.simd.cords
sequences.cords ;

M: float-4 cord-append
    2dup [ float-4 instance? ] both?
    [ float-8 boa ] [ generic-cord boa ] if ; inline


USING: classes kernel math.vectors.simd math.vectors.simd.cords
sequences.cords ;

M: int-4 cord-append
    2dup [ int-4 instance? ] both?
    [ int-8 boa ] [ generic-cord boa ] if ; inline


USING: classes kernel math.vectors.simd math.vectors.simd.cords
sequences.cords ;

M: longlong-2 cord-append
    2dup [ longlong-2 instance? ] both?
    [ longlong-4 boa ] [ generic-cord boa ] if ; inline


USING: kernel sequences.cords ;

M: object cord-append generic-cord boa ; inline


USING: classes kernel math.vectors.simd math.vectors.simd.cords
sequences.cords ;

M: short-8 cord-append
    2dup [ short-8 instance? ] both?
    [ short-16 boa ] [ generic-cord boa ] if ; inline


USING: classes kernel math.vectors.simd math.vectors.simd.cords
sequences.cords ;

M: uchar-16 cord-append
    2dup [ uchar-16 instance? ] both?
    [ uchar-32 boa ] [ generic-cord boa ] if ; inline


USING: classes kernel math.vectors.simd math.vectors.simd.cords
sequences.cords ;

M: uint-4 cord-append
    2dup [ uint-4 instance? ] both?
    [ uint-8 boa ] [ generic-cord boa ] if ; inline


USING: classes kernel math.vectors.simd math.vectors.simd.cords
sequences.cords ;

M: ulonglong-2 cord-append
    2dup [ ulonglong-2 instance? ] both?
    [ ulonglong-4 boa ] [ generic-cord boa ] if ; inline


USING: classes kernel math.vectors.simd math.vectors.simd.cords
sequences.cords ;

M: ushort-8 cord-append
    2dup [ ushort-8 instance? ] both?
    [ ushort-16 boa ] [ generic-cord boa ] if ; inline