From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sun, 19 Jun 2011 01:35:03 +0000 (-0700)
Subject: * lread.c (string_to_number): Simplify the 2011-04-26 change by invoking xsignal1.
X-Git-Tag: emacs-pretest-24.0.90~104^2~473^2~36
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f14ed477b81a165cd731aa1d851a1cc0247d70b8;p=emacs.git

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

diff --git a/src/ChangeLog b/src/ChangeLog
index 2016669efc1..c5cb08237de 100644
--- 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 f8db6c14192..5f8d6b84c3c 100644
--- 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))
 	{