(4sequence) ( obj1 obj2 obj3 obj4 seq -- seq )


Vocabulary
sequences.private

Inputs
obj1an object
obj2an object
obj3an object
obj4an object
seqan object


Outputs
seqan object


Definition
USING: kernel ;

IN: sequences.private

: (4sequence) ( obj1 obj2 obj3 obj4 seq -- seq )
[ 3 swap set-nth-unsafe ] keep (3sequence) ; inline