single-combination

Vocabulary

generic.single

Definition

IN: generic.single

TUPLE: single-combination ;

Methods

USING: generic.single kernel ;

M: single-combination inline-cache-quots 2drop f f ;


USING: generic generic.single kernel ;

M: single-combination make-default-method
    [ [ picker ] dip [ no-method ] curry compose ]
    with-combination ;


USING: classes generic generic.single kernel make quotations ;

M: single-combination next-method-quot*
    [
        2dup next-method [
            [
                [ picker % ] 3dip [ dup predicate-def % ] 2dip
                1quotation , [ inconsistent-next-method ] 2curry
                , \ if ,
            ] [ ] make
        ] [ 2drop f ] if*
    ] with-combination ;


USING: generic generic.single kernel namespaces words ;

M: single-combination perform-combination
    [
        H{ } clone predicate-engines set dup generic-word set
        dup build-decision-tree
        [ "decision-tree" set-word-prop ]
        [ mega-cache-quot define ] [ define-inline-cache-quot ]
        2tri
    ] with-combination ;