echelon-dispatch-engine

Vocabulary

generic.single

Definition

IN: generic.single

TUPLE: echelon-dispatch-engine n methods ;

Methods

USING: accessors assocs combinators generic.single kernel
namespaces sequences ;

M: echelon-dispatch-engine compile-engine
    dup n>> 0 = [
        methods>> dup assoc-size {
            { 0 [ drop default get ] }
            { 1 [ >alist first second compile-engine ] }
        } case
    ] [ methods>> compile-engines* build-fast-hash ] if ;