cond*>quot ( assoc -- quot )


Vocabulary
combinators.extras

Inputs
assocan object


Outputs
quotan object


Definition
USING: arrays combinators kernel sequences ;

IN: combinators.extras

: cond*>quot ( assoc -- quot )
[ dup pair? [ [ drop ] prepend [ t ] swap 2array ] unless ]
map reverse! [ no-cond ] swap alist>quot* ;