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


Vocabulary
lists

Inputs
list1an object
list2an object
quota quotation with stack effect ( ... elt1 elt2 -- ... )


Outputs
None

Definition


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