<default-method> ( generic combination -- method )

Vocabulary

generic

Inputs

generic	an object
combination	an object

Outputs

method

an object

Definition

USING: kernel words ;

IN: generic

: <default-method> ( generic combination -- method )
    [ drop object bootstrap-word swap <method> ]
    [ make-default-method ] 2bi
    [ define ] [ drop t "default" set-word-prop ] [ drop ] 2tri
    ;