unrolled-2bounds-check ( xseq yseq len quot -- xseq yseq len quot )


Vocabulary
sequences.unrolled.private

Inputs
xseqan object
yseqan object
lenan object
quotan object


Outputs
xseqan object
yseqan object
lenan object
quotan object


Definition
USING: combinators.short-circuit kernel math sequences
sequences.unrolled ;

IN: sequences.unrolled.private

:: unrolled-2bounds-check
( xseq yseq len quot -- xseq yseq len quot )
{ [ len xseq length > ] [ len yseq length > ] } 0||
[ xseq yseq len unrolled-2bounds-error ]
[ xseq yseq len quot ] if ; inline