cond*>quot ( assoc -- quot )

Vocabulary

combinators.extras

Inputs

assoc

an object

Outputs

quot

an 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* ;