Mercurial > emacs
comparison src/floatfns.c @ 64763:0a5d4a20386e
Munge comment associated w/ last change to describe intent; nfc.
author | Thien-Thi Nguyen <ttn@gnuvola.org> |
---|---|
date | Sun, 07 Aug 2005 00:55:01 +0000 |
parents | 79485c14d194 |
children | a0d1312ede66 |
comparison
equal
deleted
inserted
replaced
64762:41bb365f41c4 | 64763:0a5d4a20386e |
---|---|
459 | 459 |
460 CHECK_NUMBER_OR_FLOAT (arg1); | 460 CHECK_NUMBER_OR_FLOAT (arg1); |
461 CHECK_NUMBER_OR_FLOAT (arg2); | 461 CHECK_NUMBER_OR_FLOAT (arg2); |
462 if (INTEGERP (arg1) /* common lisp spec */ | 462 if (INTEGERP (arg1) /* common lisp spec */ |
463 && INTEGERP (arg2) /* don't promote, if both are ints, and */ | 463 && INTEGERP (arg2) /* don't promote, if both are ints, and */ |
464 && 0 <= XINT (arg2)) /* we are not computing the -ARG2 root */ | 464 && 0 <= XINT (arg2)) /* we are sure the result is not fractional */ |
465 { /* this can be improved by pre-calculating */ | 465 { /* this can be improved by pre-calculating */ |
466 EMACS_INT acc, x, y; /* some binary powers of x then accumulating */ | 466 EMACS_INT acc, x, y; /* some binary powers of x then accumulating */ |
467 Lisp_Object val; | 467 Lisp_Object val; |
468 | 468 |
469 x = XINT (arg1); | 469 x = XINT (arg1); |