--- xlmath2.c.orig	Thu Apr 20 08:50:43 1995
+++ xlmath2.c	Thu Dec 23 16:45:48 1999
@@ -66,7 +66,7 @@
 #endif
 LOCAL VOID badcop(V);
 LOCAL LVAL readnumber P1H(Number *);
-LOCAL VOID setmode P2H(Number *, int);
+LOCAL VOID xl_setmode P2H(Number *, int);
 LOCAL VOID matchmodes P2H(Number *, Number *);
 LOCAL LVAL lispnumber P1H(Number *);
 LOCAL LVAL binary P1H(int);
@@ -455,7 +455,7 @@
   return(arg);
 }
 
-LOCAL VOID setmode P2C(Number *, x, int, mode)
+LOCAL VOID xl_setmode P2C(Number *, x, int, mode)
 {
   switch (mode) {
 #ifdef BIGNUMS
@@ -534,8 +534,8 @@
 	   break;
 #endif
   }
-  if (x->mode != mode) setmode(x, mode);
-  if (y->mode != mode) setmode(y, mode);
+  if (x->mode != mode) xl_setmode(x, mode);
+  if (y->mode != mode) xl_setmode(y, mode);
 }
 
 LOCAL LVAL lispnumber P1C(Number *, x)
@@ -789,7 +789,7 @@
       case IN:
         checkizero(arg.val);
 #ifdef BIGNUMS
-	setmode(&val, RT);
+	xl_setmode(&val, RT);
 	val.denom = arg.val;
 	break;
 #else
@@ -802,8 +802,8 @@
           break;
         }
         else {
-          setmode(&val, FL);
-          setmode(&arg, FL);
+          xl_setmode(&val, FL);
+          xl_setmode(&arg, FL);
         }
         /* drop through */
 #endif
@@ -812,8 +812,8 @@
         val.fval /= arg.fval;
         break;
       case CI:
-        setmode(&val, CF);
-        setmode(&arg, CF);
+        xl_setmode(&val, CF);
+        xl_setmode(&arg, CF);
         /* drop through */
       case CF:
 	{
@@ -856,8 +856,8 @@
           break;
         }
         else {
-          setmode(&val, FL);
-          setmode(&arg, FL);
+          xl_setmode(&val, FL);
+          xl_setmode(&arg, FL);
         }
         /* drop through */
       case FL:
@@ -865,8 +865,8 @@
         val.fval /= arg.fval;
         break;
       case CI:
-        setmode(&val, CF);
-        setmode(&arg, CF);
+        xl_setmode(&val, CF);
+        xl_setmode(&arg, CF);
         /* drop through */
       case CF:
 	{
