# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738966588 0
# Node ID d00aaf536bfd2b8b7cff413bcf5cfc334c9da8e9
# Parent  829998469d8634e8f9ea1c83f2858b589d423198
[!FLOAT_CHECK_ERRNO] (IN_FLOAT): New definition.
(Flog): Fix argument of `log'.

diff -r 829998469d86 -r d00aaf536bfd src/floatfns.c
--- a/src/floatfns.c	Tue Jun 01 20:25:45 1993 +0000
+++ b/src/floatfns.c	Tue Jun 01 20:29:48 1993 +0000
@@ -154,6 +154,7 @@
     }							\
   } while (0)
 #else
+#define IN_FLOAT(d, name, num) (in_float = 1, (d), in_float = 0)
 #define IN_FLOAT2(d, name, num, num2) (in_float = 1, (d), in_float = 0)
 #endif
 
@@ -471,7 +472,7 @@
       if (b == 10.0)
 	IN_FLOAT2 (d = log10 (d), "log", arg, base);
       else
-	IN_FLOAT2 (d = log (arg) / log (b), "log", arg, base);
+	IN_FLOAT2 (d = log (d) / log (b), "log", arg, base);
     }
   return make_float (d);
 }