[switch] ( quot-alist -- quot )


Vocabulary
inverse

Inputs
quot-alistan object


Outputs
quotan object


Definition
USING: arrays assocs kernel quotations sequences ;

IN: inverse

: [switch] ( quot-alist -- quot )
[ dup quotation? [ [ ] swap 2array ] when ] map reverse
[ [ [undo] ] dip compose ] { } assoc>map recover-chain ;