# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1153229340 0
# Node ID 8d894204c7329f5ab2b7801f50d4aa46deacc0ec
# Parent  6dd00de34fffc3e0585cb028a37baeeb67b9eab4
(scan_lists): Use xsignal3.

diff -r 6dd00de34fff -r 8d894204c732 src/syntax.c
--- a/src/syntax.c	Tue Jul 18 13:28:53 2006 +0000
+++ b/src/syntax.c	Tue Jul 18 13:29:00 2006 +0000
@@ -2347,10 +2347,9 @@
 	    close1:
 	      if (!--depth) goto done;
 	      if (depth < min_depth)
-		Fsignal (Qscan_error,
-			 Fcons (build_string ("Containing expression ends prematurely"),
-				Fcons (make_number (last_good),
-				       Fcons (make_number (from), Qnil))));
+		xsignal3 (Qscan_error,
+			  build_string ("Containing expression ends prematurely"),
+			  make_number (last_good), make_number (from));
 	      break;
 
 	    case Sstring:
@@ -2499,10 +2498,9 @@
 	    open2:
 	      if (!--depth) goto done2;
 	      if (depth < min_depth)
-		Fsignal (Qscan_error,
-			 Fcons (build_string ("Containing expression ends prematurely"),
-				Fcons (make_number (last_good),
-				       Fcons (make_number (from), Qnil))));
+		xsignal3 (Qscan_error,
+			  build_string ("Containing expression ends prematurely"),
+			  make_number (last_good), make_number (from));
 	      break;
 
 	    case Sendcomment:
@@ -2571,12 +2569,9 @@
   return val;
 
  lose:
-  Fsignal (Qscan_error,
-	   Fcons (build_string ("Unbalanced parentheses"),
-		  Fcons (make_number (last_good),
-			 Fcons (make_number (from), Qnil))));
-  abort ();
-  /* NOTREACHED */
+  xsignal3 (Qscan_error,
+	    build_string ("Unbalanced parentheses"),
+	    make_number (last_good), make_number (from));
 }
 
 DEFUN ("scan-lists", Fscan_lists, Sscan_lists, 3, 3, 0,