diff options
Diffstat (limited to 'Tools/MathematicaMisc/Errors.m')
-rw-r--r-- | Tools/MathematicaMisc/Errors.m | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Tools/MathematicaMisc/Errors.m b/Tools/MathematicaMisc/Errors.m index 2f0d6cd..34c19b0 100644 --- a/Tools/MathematicaMisc/Errors.m +++ b/Tools/MathematicaMisc/Errors.m @@ -16,6 +16,7 @@ Warnings = 1 Terse = 2; Info = 3; InfoFull = 4; +DefFn; Begin["`Private`"]; @@ -93,6 +94,14 @@ ErrorDefinition[x_] := x[args___] := ThrowError["Invalid arguments to "<>ToString[x], {args}//FullForm]; +SetAttributes[DefFn, HoldAll]; + +DefFn[def:(fn_[args___] := body_)] := + Module[ + {}, + ErrorDefinition[fn]; + def]; + End[]; EndPackage[]; |