diff options
| author | Richard M. Stallman <[email protected]> | 1993-08-10 05:47:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1993-08-10 05:47:49 +0000 |
| commit | 28d849dbb87afb6992bce5d38bc33421fe4612f0 (patch) | |
| tree | eb002ad5b2bd7d1d7cf454f556a69af5c4d43abf /src/floatfns.c | |
| parent | 3530d5340059da902c1d19edcd5a31246cd91a19 (diff) | |
(Fexpt): Use IN_FLOAT2.
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index 6b0f68585c..e4c36af1a9 100644 --- a/src/floatfns.c +++ b/src/floatfns.c @@ -402,8 +402,8 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0, 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 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0, 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); } |