define-math-ops ( op -- )

Vocabulary

math.partial-dispatch

Inputs

op

an object

Outputs

None

Definition

USING: accessors arrays assocs generic kernel make math
sequences ;

IN: math.partial-dispatch

: define-math-ops ( op -- )
    { fixnum bignum float }
    [ [ dup 3array ] [ swap ?lookup-method ] 2bi ] with
    map>alist sift-values [ def>> ] assoc-map
    [ length 1 = ] filter-values [ first ] assoc-map % ;