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 sequences ;

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


USING: classes generic generic.single kernel make quotations
sequences ;

M: single-combination next-method-quot*
[
2dup next-method dup [
[
pick predicate-def % 1quotation ,
[ inconsistent-next-method ] 2curry , \ if ,
] [ ] make picker prepend
] [ 3drop 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 ;