define-generic ( word effect -- )

Vocabulary

multi-methods

Inputs

word	an object
effect	an object

Outputs

None

Definition

USING: kernel words ;

IN: multi-methods

: define-generic ( word effect -- )
    [ set-stack-effect ] keepd dup "multi-methods" word-prop
    [ drop ] [
        [ H{ } clone "multi-methods" set-word-prop ]
        [ update-generic ] bi
    ] if ;