define-identities ( word identities -- )

Vocabulary

compiler.tree.identities

Inputs

word	an object
identities	an object

Outputs

None

Definition

USING: kernel math.partial-dispatch sequences words ;

IN: compiler.tree.identities

: define-identities ( word identities -- )
    [ integer-derived-ops dup empty? f assert= ] dip
    [ "identities" set-word-prop ] curry each ;