From 33c1b51aad60e7a6410ff3852c22d105ece58d0f Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Tue, 20 Dec 2011 00:02:43 +0000
Subject: Add more context to string list verification error messages

---
 Tools/CodeGen/Interface.m      | 4 ++--
 Tools/MathematicaMisc/Errors.m | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'Tools')

diff --git a/Tools/CodeGen/Interface.m b/Tools/CodeGen/Interface.m
index 9697e73..852e7c5 100644
--- a/Tools/CodeGen/Interface.m
+++ b/Tools/CodeGen/Interface.m
@@ -125,8 +125,8 @@ CreateKrancInterface[nonevolvedGroups_, evolvedGroups_, rhsGroups_,
     VerifyGroupNames[rhsODEGroups];
     VerifyGroups[groups];
     VerifyString[implementation];
-    VerifyStringList[inheritedImplementations];
-    VerifyStringList[includeFiles];
+    VerifyStringList[inheritedImplementations, "InheritedImplementations"];
+    VerifyStringList[includeFiles, "IncludeFiles"];
     (* These are the aliased functions that are USED by this thorn from other thorns *)
     registerEvolved = 
     {
diff --git a/Tools/MathematicaMisc/Errors.m b/Tools/MathematicaMisc/Errors.m
index 6032b0a..4789dbe 100644
--- a/Tools/MathematicaMisc/Errors.m
+++ b/Tools/MathematicaMisc/Errors.m
@@ -71,9 +71,9 @@ VerifyString[s_] :=
   If[! StringQ[s],
    ThrowError["Not a string:", s]];
 
-VerifyStringList[l_] := 
+VerifyStringList[l_, err_:None] := 
   If[! MatchQ[l, {___String}],
-   ThrowError["Not a list of strings:", l]];
+   ThrowError[If[err===None,"",ToString[err]<>" - "]<>"Not a list of strings:", l]];
 
 
 VerifyList[l_] := 
-- 
cgit v1.2.3