diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-13 13:52:15 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-13 13:52:15 +0200 |
| commit | 57d2efaab4a22d663510d9cad2f77106f8c3eee4 (patch) | |
| tree | 63f029626661626a77cdd906779e448dfe51c247 /Tools | |
| parent | 745868e980ebdcb555c5b2f8bd3fe67186e1cdf8 (diff) | |
Add ApplyToObjectField to Object.m
Diffstat (limited to 'Tools')
| -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[]; |