make-math-method-table ( classes quot: ( ... class -- ... quot ) -- alist )

Vocabulary

generic.math.private

Inputs

classes	an object
quot	a quotation with stack effect ( ... class -- ... quot )

Outputs

alist

an object

Definition

USING: assocs kernel ;

IN: generic.math.private

: make-math-method-table
    ( classes quot: ( ... class -- ... quot ) -- alist )
    [ bootstrap-words ] dip [ keep swap ] curry { } map>assoc ;
    inline