unrolled-bounds-check ( seq len quot -- seq len quot )


Vocabulary
sequences.unrolled.private

Inputs
seqan object
lenan object
quotan object


Outputs
seqan object
lenan object
quotan object


Definition
USING: kernel math sequences sequences.unrolled ;

IN: sequences.unrolled.private

: unrolled-bounds-check ( seq len quot -- seq len quot )
2over swap length > [ 2over unrolled-bounds-error ] when ;
inline