find-default ( methods -- default )


Vocabulary
generic.single

Definition
USING: assocs kernel namespaces words ;

IN: generic.single

: find-default ( methods -- default )
[ object bootstrap-word ] dip delete-at*
[ drop generic-word get "default-method" word-prop ] unless
;