(math-upgrade) ( max class -- quot )

Vocabulary

generic.math.private

Inputs

max	an object
class	an object

Outputs

quot

an object

Definition

USING: kernel words ;

IN: generic.math.private

: (math-upgrade) ( max class -- quot )
    dupd = [ drop [ ] ] [ "coercer" word-prop [ ] or ] if ;