diff options
Diffstat (limited to 'Tools/CodeGen/Object.m')
| -rw-r--r-- | Tools/CodeGen/Object.m | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Tools/CodeGen/Object.m b/Tools/CodeGen/Object.m index 957af54..63ab2bf 100644 --- a/Tools/CodeGen/Object.m +++ b/Tools/CodeGen/Object.m @@ -25,6 +25,7 @@ SetObjectField; GetObjectField; AppendObjectField; JoinObjectField; +ApplyToObjectField; Begin["`Private`"]; @@ -62,6 +63,11 @@ DefFn[ JoinObjectField[obj_, field_String, values_List] := SetObjectField[obj, field, Join[GetObjectField[obj, field], values]]]; +DefFn[ + ApplyToObjectField[obj_, field_String, f_] := + SetObjectField[obj, field, f[GetObjectField[obj, field]]]]; + + End[]; EndPackage[]; |