(def-value) ( node value def-use -- )

Vocabulary

compiler.tree.def-use

Inputs

node	an object
value	an object
def-use	an object

Outputs

None

Definition

USING: assocs kernel ;

IN: compiler.tree.def-use

: (def-value) ( node value def-use -- )
    2dup key?
    [ multiple-defs-error ]
    [ [ [ <definition> ] keep ] dip set-at ] if ; inline