changeset 40784:d57f74c55909

(read1): Fix behavior with nested backquoting.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 06 Nov 2001 18:48:03 +0000
parents dc0caf1519bd
children 2fb9d407ae73
files src/lread.c
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Tue Nov 06 17:14:53 2001 +0000
+++ b/src/lread.c	Tue Nov 06 18:48:03 2001 +0000
@@ -2112,9 +2112,9 @@
 	{
 	  Lisp_Object value;
 
-	  new_backquote_flag = 1;
+	  new_backquote_flag++;
 	  value = read0 (readcharfun);
-	  new_backquote_flag = 0;
+	  new_backquote_flag--;
 
 	  return Fcons (Qbackquote, Fcons (value, Qnil));
 	}
@@ -2136,9 +2136,9 @@
 	      comma_type = Qcomma;
 	    }
 
-	  new_backquote_flag = 0;
+	  new_backquote_flag--;
 	  value = read0 (readcharfun);
-	  new_backquote_flag = 1;
+	  new_backquote_flag++;
 	  return Fcons (comma_type, Fcons (value, Qnil));
 	}
       else