From 87ed1d2ba09c793742e002d6d91466e4d89d36c1 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 20 Feb 2014 22:07:15 -0800 Subject: * parser.y (unquotes_occur): Bugfix: we should not terminate the recursion early if we see a quote. This would be true if the only quotes were those generated by the parser based on calls to choose_quote. However, it breaks for something like an explicitly coded '(sys:quote ,form), which becomes (sys:quote (sys:quote ,form)), leaving a dangling unquote. --- parser.y | 2 -- 1 file changed, 2 deletions(-) (limited to 'parser.y') diff --git a/parser.y b/parser.y index a4a7aa61..4c402965 100644 --- a/parser.y +++ b/parser.y @@ -1106,8 +1106,6 @@ static val unquotes_occur(val quoted_form) val sym = car(quoted_form); if (sym == unquote_s || sym == splice_s) return t; - if (sym == quote_s) - return nil; return or2(unquotes_occur(sym), unquotes_occur(cdr(quoted_form))); } } -- cgit v1.2.3