# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 744961669 0
# Node ID 8dc73bbe1c4665176ae7bde573252311a2b50778
# Parent  5622149e7f754ceefc0bf622af75283d318da303
(Fexpt): Use IN_FLOAT2.

diff -r 5622149e7f75 -r 8dc73bbe1c46 src/floatfns.c
--- a/src/floatfns.c	Tue Aug 10 04:36:30 1993 +0000
+++ b/src/floatfns.c	Tue Aug 10 05:47:49 1993 +0000
@@ -402,8 +402,8 @@
 
   CHECK_NUMBER_OR_FLOAT (arg1, 0);
   CHECK_NUMBER_OR_FLOAT (arg2, 0);
-  if ((XTYPE (arg1) == Lisp_Int) && /* common lisp spec */
-      (XTYPE (arg2) == Lisp_Int)) /* don't promote, if both are ints */
+  if (XTYPE (arg1) == Lisp_Int     /* common lisp spec */
+      && XTYPE (arg2) == Lisp_Int) /* don't promote, if both are ints */
     {				/* this can be improved by pre-calculating */
       int acc, x, y;		/* some binary powers of x then accumulating */
       Lisp_Object val;
@@ -444,7 +444,7 @@
   else if ((f1 == 0.0 && f2 < 0.0) || (f1 < 0 && f2 != floor(f2)))
     domain_error2 ("expt", arg1, arg2);
 #endif
-  IN_FLOAT (f1 = pow (f1, f2), "expt", arg1);
+  IN_FLOAT2 (f1 = pow (f1, f2), "expt", arg1, arg2);
   return make_float (f1);
 }