sequence? ( object -- ? ) - Factor Documentation

sequence? ( object -- ? )
Factor handbook » The language » Collections » Sequence operations » Sequence protocol

Prev:	sequence
Next:	length ( seq -- n )

Vocabulary
sequences

Inputs and outputs

object	an object
?	a boolean

Word description
Tests if the object is an instance of the sequence class.

Definition

USING: classes.tuple.private growable kernel kernel.private
math.blas.matrices math.private raylib sequences.shifted
slots.private specialized-arrays tensors zim ;

: sequence? ( object -- ? )
dup tag 1 swap fixnum-shift-fast 2564 fixnum-bitand 0 eq?
not
[ drop t ] [
dup dup tuple? [
layout-of
dup
7
slot
dup
\ zim-cluster
eq?
[ drop t ]
[
dup \ tensor eq?
[ drop t ] [
dup \ shifted eq?
[ drop t ] [
dup \ blas-matrix-rowcol-sequence eq?
~quotation~ ~quotation~ if
] if
] if
]
if
[ drop t ]
[
dup dup 1 slot 11 fixnum>=
[ 11 slot \ zim eq? ] [ drop f ] if
[ drop t ] [
dup
1
slot
9
fixnum>=
[
9
slot
dup
\ Vector4
eq?
~quotation~
~quotation~
if
]
[ drop f ]
if
] if
]
if
] [ drop f ] if
[ drop t ] [
dup specialized-array?
[ drop t ] [
dup growable?
[ drop t ] [
dup virtual-sequence?
[ drop t ] [ immutable-sequence? ] if
] if
] if
] if
] if ;