standard-combination

Vocabulary

generic.standard

Class description

Performs standard method combination.

Generic words using the standard method combination dispatch on the class of the object at the given stack position, where 0 is the top of the stack, 1 is the object underneath, and 2 is the next one under that. A no-method error is thrown if no suitable method is defined on the class.

Examples

A generic word for append strings and characters to a sequence, dispatching on the object underneath the top of the stack:

GENERIC#: build-string 1 ( elt str -- ) M: string build-string swap push-all ; M: integer build-string push ;

See also

hook-combination

Definition

USING: generic.single ;

IN: generic.standard

TUPLE: standard-combination < single-combination # ;

Methods

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

M: standard-combination check-combination-effect
    [ dispatch# ] [ in>> length ] bi* over >
    [ drop ] [ bad-dispatch-position ] if ;


USING: accessors generic.single generic.standard ;

M: standard-combination dispatch# #>> ;


USING: generic.single generic.single.private generic.standard
kernel ;

M: standard-combination inline-cache-quots
    [ \ inline-cache-miss inline-cache-quot ]
    [ \ inline-cache-miss-tail inline-cache-quot ] 2bi ;


USING: generic generic.standard kernel ;

M: standard-combination make-consult-quot
    drop [ [ call ] curry ] dip [ execute ] curry compose nip ;


USING: accessors generic.single generic.single.private
generic.standard namespaces sequences ;

M: standard-combination mega-cache-quot
    combination get #>> make-empty-cache \ mega-cache-lookup
    [ ] 4sequence ;


USING: accessors generic.single generic.standard namespaces ;

M: standard-combination picker combination get #>> (picker) ;