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@ ] ] dip compose
[ most ] curry map-reduce ; inline