From 1cee2045653f1a3c01dfad523ea66bdca7f82a12 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@redhat.com>
Date: Sat, 31 Oct 1992 05:19:58 +0000
Subject: [PATCH] * 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.
---
 src/floatfns.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/floatfns.c b/src/floatfns.c
index ca5b93755f8..b6bb4044750 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -292,7 +292,8 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0,
 	  for (; y > 0; y--)
 	    acc *= x;
 	}
-      return XSET (x, Lisp_Int, acc);
+      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);
@@ -304,7 +305,7 @@ 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;
+     register Lisp_Object num, base;
 {
   double d = extract_float (num);