(unrolled-2each) ( xseq yseq len quot -- len quot )

Vocabulary

sequences.unrolled.private

Inputs

xseq	an object
yseq	an object
len	an object
quot	an object

Outputs

len	an object
quot	an object

Definition

USING: kernel sequences.private ;

IN: sequences.unrolled.private

: (unrolled-2each) ( xseq yseq len quot -- len quot )
    [ [ ] curry 2dip ] dip 2length-operator nip ; inline