alist>quot* ( default assoc -- quot )


Vocabulary
combinators.extras

Inputs
defaultan object
assocan object


Outputs
quotan object


Definition
USING: arrays assocs kernel sequences ;

IN: combinators.extras

: alist>quot* ( default assoc -- quot )
[ rot \ if* 3array [ ] append-as ] assoc-each ;