at+ ( value key assoc -- value ) (original) (raw)
at+ ( value key assoc -- value )
Vocabulary
mongodb.tuple.persistent.private
Inputs
| value | an object |
|---|---|
| key | an object |
| assoc | an object |
Outputs
| value | an object |
|---|
Definition
IN: mongodb.tuple.persistent.private
: at+ ( value key assoc -- value )
2dup key? [ at nip ] [ [ dup ] 2dip set-at ] if ; inline