find-default ( methods -- default )

Vocabulary

generic.single

Inputs

methods

an object

Outputs

default

an object

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
    ;