multi-dispatch-quot ( methods generic -- quot )


Vocabulary
multi-methods

Inputs
methodsan object
generican object


Outputs
quotan object


Definition
USING: assocs combinators kernel sequences ;

IN: multi-methods

: multi-dispatch-quot ( methods generic -- quot )
[ make-default-method ]
[ drop [ [ multi-predicate ] dip ] assoc-map reverse! ] 2bi
alist>quot ;