--- a/liboctave/lo-specfun.cc	Sun Apr 10 18:39:45 2005 +0000
+++ b/liboctave/lo-specfun.cc	Tue Apr 12 21:04:39 2005 +0000
@@ -110,7 +110,7 @@
 acosh (double x)
 {
   double retval;
-  F77_FUNC (xdacosh, XDACOSH) (x, retval);
+  F77_XFCN (xdacosh, XDACOSH, (x, retval));
   return retval;
 }
 #endif
@@ -120,7 +120,7 @@
 asinh (double x)
 {
   double retval;
-  F77_FUNC (xdasinh, XDASINH) (x, retval);
+  F77_XFCN (xdasinh, XDASINH, (x, retval));
   return retval;
 }
 #endif
@@ -130,7 +130,7 @@
 atanh (double x)
 {
   double retval;
-  F77_FUNC (xdatanh, XDATANH) (x, retval);
+  F77_XFCN (xdatanh, XDATANH, (x, retval));
   return retval;
 }
 #endif
@@ -140,7 +140,7 @@
 erf (double x)
 {
   double retval;
-  F77_FUNC (xderf, XDERF) (x, retval);
+  F77_XFCN (xderf, XDERF, (x, retval));
   return retval;
 }
 #endif
@@ -150,7 +150,7 @@
 erfc (double x)
 {
   double retval;
-  F77_FUNC (xderfc, XDERFC) (x, retval);
+  F77_XFCN (xderfc, XDERFC, (x, retval));
   return retval;
 }
 #endif
@@ -159,7 +159,7 @@
 xgamma (double x)
 {
   double result;
-  F77_FUNC (xdgamma, XDGAMMA) (x, result);
+  F77_XFCN (xdgamma, XDGAMMA, (x, result));
   return result;
 }
 
@@ -173,7 +173,7 @@
     (*current_liboctave_error_handler)
       ("xlgamma: argument must be nonnegative");
 
-  F77_FUNC (dlgams, DLGAMS) (x, result, sgngam);
+  F77_XFCN (dlgams, DLGAMS, (x, result, sgngam));
 
   return result;
 }
@@ -1242,7 +1242,7 @@
       err = true;
     }
   else
-    F77_FUNC (xgammainc, XGAMMAINC) (a, x, retval);
+    F77_XFCN (xgammainc, XGAMMAINC, (a, x, retval));
 
   return retval;
 }