(leach) ( list quot -- cdr quot )


Vocabulary
lists.private

Inputs
listan object
quotan object


Outputs
cdran object
quotan object


Definition
USING: kernel lists ;

IN: lists.private

: (leach) ( list quot -- cdr quot )
[ [ car ] dip call ] [ [ cdr ] dip ] 2bi ; inline