diff options
| author | Richard M. Stallman | 1993-08-10 05:47:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-08-10 05:47:49 +0000 |
| commit | 28d849dbb87afb6992bce5d38bc33421fe4612f0 (patch) | |
| tree | eb002ad5b2bd7d1d7cf454f556a69af5c4d43abf /src/floatfns.c | |
| parent | 3530d5340059da902c1d19edcd5a31246cd91a19 (diff) | |
| download | emacs-28d849dbb87afb6992bce5d38bc33421fe4612f0.tar.gz emacs-28d849dbb87afb6992bce5d38bc33421fe4612f0.zip | |
(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 6b0f68585cd..e4c36af1a9d 100644 --- a/src/floatfns.c +++ b/src/floatfns.c | |||
| @@ -402,8 +402,8 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0, | |||
| 402 | 402 | ||
| 403 | CHECK_NUMBER_OR_FLOAT (arg1, 0); | 403 | CHECK_NUMBER_OR_FLOAT (arg1, 0); |
| 404 | CHECK_NUMBER_OR_FLOAT (arg2, 0); | 404 | CHECK_NUMBER_OR_FLOAT (arg2, 0); |
| 405 | if ((XTYPE (arg1) == Lisp_Int) && /* common lisp spec */ | 405 | if (XTYPE (arg1) == Lisp_Int /* common lisp spec */ |
| 406 | (XTYPE (arg2) == Lisp_Int)) /* don't promote, if both are ints */ | 406 | && XTYPE (arg2) == Lisp_Int) /* don't promote, if both are ints */ |
| 407 | { /* this can be improved by pre-calculating */ | 407 | { /* this can be improved by pre-calculating */ |
| 408 | int acc, x, y; /* some binary powers of x then accumulating */ | 408 | int acc, x, y; /* some binary powers of x then accumulating */ |
| 409 | Lisp_Object val; | 409 | Lisp_Object val; |
| @@ -444,7 +444,7 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0, | |||
| 444 | else if ((f1 == 0.0 && f2 < 0.0) || (f1 < 0 && f2 != floor(f2))) | 444 | else if ((f1 == 0.0 && f2 < 0.0) || (f1 < 0 && f2 != floor(f2))) |
| 445 | domain_error2 ("expt", arg1, arg2); | 445 | domain_error2 ("expt", arg1, arg2); |
| 446 | #endif | 446 | #endif |
| 447 | IN_FLOAT (f1 = pow (f1, f2), "expt", arg1); | 447 | IN_FLOAT2 (f1 = pow (f1, f2), "expt", arg1, arg2); |
| 448 | return make_float (f1); | 448 | return make_float (f1); |
| 449 | } | 449 | } |
| 450 | 450 | ||