diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-03-16 00:47:02 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-03-16 00:47:02 -0700 |
| commit | a885e2ed791b15dc48a7024751872d2b5bc17034 (patch) | |
| tree | ebba6e97a9dd68f840c2ad5b0104bae14484f9b0 /src/floatfns.c | |
| parent | 1384fa33581c398a3f3393c82be071d5784b0b04 (diff) | |
| download | emacs-a885e2ed791b15dc48a7024751872d2b5bc17034.tar.gz emacs-a885e2ed791b15dc48a7024751872d2b5bc17034.tar.bz2 emacs-a885e2ed791b15dc48a7024751872d2b5bc17034.zip | |
* floatfns.c (Ffrexp, Fldexp): Rename locals to avoid shadowing.
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index c8b5236d34a..bc03509b757 100644 --- a/src/floatfns.c +++ b/src/floatfns.c @@ -328,9 +328,9 @@ If X is zero, both parts (SGNFCAND and EXP) are zero. */) return Fcons (make_float (0.0), make_number (0)); else { - int exp; - double sgnfcand = frexp (f, &exp); - return Fcons (make_float (sgnfcand), make_number (exp)); + int exponent; + double sgnfcand = frexp (f, &exponent); + return Fcons (make_float (sgnfcand), make_number (exponent)); } } @@ -338,10 +338,10 @@ DEFUN ("ldexp", Fldexp, Sldexp, 1, 2, 0, doc: /* Construct number X from significand SGNFCAND and exponent EXP. Returns the floating point value resulting from multiplying SGNFCAND (the significand) by 2 raised to the power of EXP (the exponent). */) - (Lisp_Object sgnfcand, Lisp_Object exp) + (Lisp_Object sgnfcand, Lisp_Object exponent) { - CHECK_NUMBER (exp); - return make_float (ldexp (XFLOATINT (sgnfcand), XINT (exp))); + CHECK_NUMBER (exponent); + return make_float (ldexp (XFLOATINT (sgnfcand), XINT (exponent))); } #endif |