remove matherr

[micropolis] / src / tclx / src / tclxmerr.c

diff --git a/src/tclx/src/tclxmerr.c b/src/tclx/src/tclxmerr.c
index dc3596b238e6a249673113c5543d4e0d584d90e4..06aad3a044f1ecd12b9fb01c5f9905072962b151 100644 (file)
--- a/src/tclx/src/tclxmerr.c
+++ b/src/tclx/src/tclxmerr.c
@@ -33,15 +33,6 @@
  *
  *-----------------------------------------------------------------------------
  */
-int
-matherr (except)
-    struct exception *except;
-{
-    if (Tcl_MathError (except->name, except->type))
-        return 1;
-    else
-        return 0;
-}
 
 #else
 \f