diff options
Diffstat (limited to 'Tools/MathematicaMisc/Errors.m')
-rw-r--r-- | Tools/MathematicaMisc/Errors.m | 4 |
1 files changed, 2 insertions, 2 deletions
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_] := |