(lconcat) ( car cdr -- list )

Vocabulary

lists.lazy.private

Inputs

car	an object
cdr	an object

Outputs

list

an object

Definition

USING: kernel lists lists.lazy ;

IN: lists.lazy.private

: (lconcat) ( car cdr -- list )
    over nil? [ nip lconcat ] [ <lazy-concat> ] if ;