match-choose ( alist -- quot )

Vocabulary

compiler.tree.debugger

Inputs

alist

an object

Outputs

quot

an object

Definition

USING: assocs match ;

IN: compiler.tree.debugger

MACRO: match-choose ( alist -- quot )
    [ '[ _ ] ] assoc-map '[ _ match-cond ] ;