(2leach) ( list1 list2 quot -- cdr1 cdr2 quot )


Vocabulary
lists.private

Inputs
list1an object
list2an object
quotan object


Outputs
cdr1an object
cdr2an object
quotan object


Definition
USING: kernel lists ;

IN: lists.private

: (2leach) ( list1 list2 quot -- cdr1 cdr2 quot )
[ [ [ car ] bi@ ] dip call ] [ [ [ cdr ] bi@ ] dip ] 3bi ;
inline