comparison src/floatfns.c @ 1512:bef6b6903528

* floatfns.c (Flog): Don't forget to declare the BASE argument a Lisp_Object. * floatfns.c (Fexpt): Don't return the value of the XSET function call; that's not guaranteed to be the value assigned.

1511:ff88f962a982

      else
	{
	  for (; y > 0; y--)
	    acc *= x;
	}
      return XSET (x, Lisp_Int, acc);
    }
  f1 = (XTYPE (num1) == Lisp_Float) ? XFLOAT (num1)->data : XINT (num1);
  f2 = (XTYPE (num2) == Lisp_Float) ? XFLOAT (num2)->data : XINT (num2);
  IN_FLOAT (f1 = pow (f1, f2), num1);
  return make_float (f1);

DEFUN ("log", Flog, Slog, 1, 2, 0,
  "Return the natural logarithm of NUM.
If second optional argument BASE is given, return log NUM using that base.")
  (num, base)
     register Lisp_Object num;
{
  double d = extract_float (num);

  if (NILP (base))
    IN_FLOAT (d = log (d), num);

1512:bef6b6903528

      else
	{
	  for (; y > 0; y--)
	    acc *= x;
	}
      XFASTINT (x) = acc;
      return x;
    }
  f1 = (XTYPE (num1) == Lisp_Float) ? XFLOAT (num1)->data : XINT (num1);
  f2 = (XTYPE (num2) == Lisp_Float) ? XFLOAT (num2)->data : XINT (num2);
  IN_FLOAT (f1 = pow (f1, f2), num1);
  return make_float (f1);

DEFUN ("log", Flog, Slog, 1, 2, 0,
  "Return the natural logarithm of NUM.
If second optional argument BASE is given, return log NUM using that base.")
  (num, base)
     register Lisp_Object num, base;
{
  double d = extract_float (num);

  if (NILP (base))
    IN_FLOAT (d = log (d), num);