(Flogb): Fix arg names. Don't confuse Lisp_Object with integer.

This commit is contained in:
Richard M. Stallman
1993-03-11 07:25:50 +00:00
parent 6628c5eaa0
commit 5bf5416601

View File

@@ -624,10 +624,11 @@ This is the same as the exponent of a float.")
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
}