* lread.c (string_to_number): Simplify the 2011-04-26 change by invoking xsignal1.

diff --git a/src/ChangeLog b/src/ChangeLog
index 2016669efc180d92f354d0d6aa744acd21f60790..c5cb08237dee24b5be90e50a2fd9a42a228c18ea 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -4,6 +4,7 @@
        All uses changed.  This doesn't fix a bug, but it simplifies the
        code away from its former Hollerith-constant appearance, and it's
        one less 'int' to worry about when looking at integer-overflow issues.
+       (string_to_number): Simplify the 2011-04-26 change by invoking xsignal1.
 
        * lisp.h (DEFUN): Remove bogus use of sizeof (struct Lisp_Subr).
        This didn't break anything, but it didn't help either.

diff --git a/src/lread.c b/src/lread.c
index f8db6c14192072af2ce9d69d5b3469d23c7c9617..5f8d6b84c3cb6a36af445ca577247025ed5dd78a 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -3333,7 +3333,7 @@ string_to_number (char const *string, int base, int ignore_trailing)
          /* Unfortunately there's no simple and accurate way to convert
             non-base-10 numbers that are out of C-language range.  */
          if (base != 10)
-           xsignal (Qoverflow_error, list1 (build_string (string)));
+           xsignal1 (Qoverflow_error, build_string (string));
        }
       else if (n <= (negative ? -MOST_NEGATIVE_FIXNUM : MOST_POSITIVE_FIXNUM))
        {