diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-12-20 00:02:43 +0000 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-12-20 00:02:43 +0000 |
| commit | 33c1b51aad60e7a6410ff3852c22d105ece58d0f (patch) | |
| tree | a864890f2003ba4060533fc8b349c3fe6859c8d3 /Tools | |
| parent | 04fa176abd86672d3afbfd062ae921238776502b (diff) | |
Add more context to string list verification error messages
Diffstat (limited to 'Tools')
| -rw-r--r-- | Tools/CodeGen/Interface.m | 4 | ||||
| -rw-r--r-- | Tools/MathematicaMisc/Errors.m | 4 |
2 files changed, 4 insertions, 4 deletions
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_] := |