add-once ( key set -- )

Vocabulary

compiler.units.private

Inputs

key	an object
set	an object

Outputs

None

Definition

USING: compiler.units kernel sets ;

IN: compiler.units.private

: add-once ( key set -- )
    dupd ?adjoin [ drop ] [ throw-redefine-error ] if ;