2leach ( ... list1 list2 quot: ( ... elt1 elt2 -- ... ) -- ... )

Vocabulary

lists

Inputs

list1	an object
list2	an object
quot	a quotation with stack effect ( ... elt1 elt2 -- ... )

Outputs

None

Definition

USING: kernel lists.private ;

IN: lists

: 2leach
    ( ... list1 list2 quot: ( ... elt1 elt2 -- ... ) -- ... )
    2over [ nil? ] either? [ 3drop ] [ (2leach) 2leach ] if ;
    inline recursive