From 57d2efaab4a22d663510d9cad2f77106f8c3eee4 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Fri, 13 Sep 2013 13:52:15 +0200
Subject: Add ApplyToObjectField to Object.m

---
 Tools/CodeGen/Object.m | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Tools')

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[];
-- 
cgit v1.2.3