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

Vocabulary

sequences

Inputs

obj1	an object
obj2	an object
obj3	an object
obj4	an object
exemplar	a sequence

Outputs

seq	a sequence

Word description

Creates a four-element sequence of the same type as exemplar.

Definition

USING: kernel sequences.private ;

IN: sequences

: 4sequence ( obj1 obj2 obj3 obj4 exemplar -- seq )
    4 swap [ (4sequence) ] new-like ; inline