X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/59dd70c3b1f545e2239a63474c595b5061c559e2..HEAD:/src/tclx/src/tclxmerr.c

diff --git a/src/tclx/src/tclxmerr.c b/src/tclx/src/tclxmerr.c
index dc3596b..06aad3a 100644
--- 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