From 0ffbbdeb4464b5b0d63e83fe3f8e91674248d84d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 6 Nov 2001 18:48:03 +0000 Subject: [PATCH] (read1): Fix behavior with nested backquoting. --- src/lread.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/lread.c b/src/lread.c index 99111a06c7d..95914a413a4 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2112,9 +2112,9 @@ read1 (readcharfun, pch, first_in_list) { 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 @@ read1 (readcharfun, pch, first_in_list) 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 -- 2.39.5