cord-append ( seq1 seq2 -- cord )


Vocabulary
sequences.cords

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