Fix misleading name ‘double_to_bignum’

* src/bignum.c (double_to_integer): Rename from double_to_bignum,
since the result is not necessarily a bignum.  All uses changed.

diff --git a/src/bignum.c b/src/bignum.c
index 35894f5647d3772fb554fb00dc93b22a96be0ede..f4c24d132be813affe4f4b6e88235540a56e9ffc 100644 (file)
--- a/src/bignum.c
+++ b/src/bignum.c
@@ -64,9 +64,9 @@ bignum_to_double (Lisp_Object n)
   return mpz_get_d (XBIGNUM (n)->value);
 }
 
-/* Return D, converted to a bignum.  Discard any fraction.  */
+/* Return D, converted to a Lisp integer.  Discard any fraction.  */
 Lisp_Object
-double_to_bignum (double d)
+double_to_integer (double d)
 {
   mpz_set_d (mpz[0], d);
   return make_integer_mpz ();

diff --git a/src/editfns.c b/src/editfns.c
index f19c3f1dca9d873f5f31e306862235e2721dda93..8c7491beedc9349e93303ea7ecd61b88d51480a2 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -4657,7 +4657,7 @@ styled_format (ptrdiff_t nargs, Lisp_Object *args, bool message)
 
              /* Characters to be inserted after spaces and before
                 leading zeros.  This can occur with bignums, since
-                string_to_bignum does only leading '-'.  */
+                bignum_to_string does only leading '-'.  */
              char prefix[sizeof "-0x" - 1];
              int prefixlen = 0;
 

diff --git a/src/floatfns.c b/src/floatfns.c
index dc7236353c0ed4ac62b23c28bcb139d7e4941773..8e56fed9d096721888025687d31a1568467c43f5 100644 (file)
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -391,7 +391,7 @@ rounding_driver (Lisp_Object arg, Lisp_Object divisor,
       if (! FIXNUM_OVERFLOW_P (ir))
        return make_fixnum (ir);
     }
-  return double_to_bignum (dr);
+  return double_to_integer (dr);
 }
 
 static EMACS_INT

diff --git a/src/lisp.h b/src/lisp.h
index f2a3ac9213205c93fc9ac98f03a7ca6989ce69b4..454d728f9e079b85d04c3aac09f5358b502700e8 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3327,7 +3327,7 @@ extern ptrdiff_t bignum_bufsize (Lisp_Object, int);
 extern ptrdiff_t bignum_to_c_string (char *, ptrdiff_t, Lisp_Object, int);
 extern Lisp_Object bignum_to_string (Lisp_Object, int);
 extern Lisp_Object make_bignum_str (char const *, int);
-extern Lisp_Object double_to_bignum (double);
+extern Lisp_Object double_to_integer (double);
 
 /* Converthe integer NUM to *N.  Return true if successful, false
    (possibly setting *N) otherwise.  */