Object.m: Check for errors in GetObjectField

ianhinder · Mar 18, 2014 · b2679d0 · b2679d0
1 parent 21ddd73
commit b2679d0
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Tools/CodeGen/Object.m b/Tools/CodeGen/Object.m
@@ -51,7 +51,10 @@
 
 DefFn[
   GetObjectField[obj_, field_String] :=
-  Cases[obj, (field -> value_) :> value][[1]]];
+  Replace[Cases[obj, (field -> value_) :> value], {
+    {}     :> ThrowError["Field "<>field<>" not found in "<>ToString[Head[obj]]],
+    {val_} :> val,
+    _      :> ThrowError["Error while reading "<>field<>" from "<>ToString[Head[obj]]]}]];
 
 (* High level functions *)