# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731834750 0
# Node ID 6741f5f8ed54e215fac1434827752d505fab110f
# Parent  28d83027277fc104123875aea7e0e92a96443a50
(Flogb): Fix arg names.  Don't confuse Lisp_Object with integer.

diff -r 28d83027277f -r 6741f5f8ed54 src/floatfns.c
--- a/src/floatfns.c	Thu Mar 11 07:22:49 1993 +0000
+++ b/src/floatfns.c	Thu Mar 11 07:25:50 1993 +0000
@@ -624,10 +624,11 @@
   error ("SYSV apparently doesn't have a logb function; what to do?");
 #else
   Lisp_Object val;
-  double f = extract_float (num);
+  int value;
+  double f = extract_float (arg);
 
-  IN_FLOAT (val = logb (f), "logb", num);
-  XSET (val, Lisp_Int, val);
+  IN_FLOAT (value = logb (f), "logb", arg);
+  XSET (val, Lisp_Int, value);
   return val;
 #endif
 }