set-once-at ( value key assoc -- )

Vocabulary

assocs.extras

Inputs

value	an object
key	an object
assoc	an object

Outputs

None

Definition

USING: assocs kernel ;

IN: assocs.extras

: set-once-at ( value key assoc -- )
    2dup ?at [ key-exists ] [ drop set-at ] if ;