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: 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) ;