(lmerge) ( list1 list2 -- result )

Vocabulary

lists.lazy.private

Inputs

list1	an object
list2	an object

Outputs

result

an object

Definition

USING: lists lists.lazy ;

IN: lists.lazy.private

:: (lmerge) ( list1 list2 -- result )
    [ list1 car ]
    [ [ list2 car ] [ list1 cdr list2 cdr lmerge ] lazy-cons ]
    lazy-cons ;