diff options
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_] := |