Mercurial > emacs
changeset 4529:8dc73bbe1c46
(Fexpt): Use IN_FLOAT2.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 10 Aug 1993 05:47:49 +0000 |
| parents | 5622149e7f75 |
| children | c14a75fce9c9 |
| files | src/floatfns.c |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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); }