alist-most ( alist quot -- pair )


Vocabulary
compiler.utilities

Inputs
alistan object
quotan object


Outputs
pairan object


Definition
USING: kernel sequences ;

IN: compiler.utilities

: alist-most ( alist quot -- pair )
[ [ ] ] dip '[ [ [ second ] bi@ @ ] most ] map-reduce ;
inline