standard-generic

Vocabulary

generic.standard

Definition

USING: generic words ;

IN: generic.standard

PREDICATE: standard-generic < generic
    "combination" word-prop standard-combination? ;

Methods

USING: definitions generic.standard kernel ;

M: standard-generic definer drop \ GENERIC#: f ;


USING: accessors generic generic.single generic.standard kernel
sequences words ;

M: standard-generic effective-method
    [ get-datastack ] dip
    [ "combination" word-prop #>> swap <reversed> nth ] keep
    method-for-object ;


USING: accessors arrays delegate.private generic.standard kernel
words ;

M: standard-generic group-words
    dup "combination" word-prop #>> 2array 1array ;


USING: combinators generic.single generic.standard
prettyprint.backend prettyprint.custom see see.private ;

M: standard-generic synopsis*
    {
        [ definer. ]
        [ seeing-word ]
        [ pprint-word ]
        [ dispatch# pprint* ]
        [ stack-effect. ]
    } cleave ;