* 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.

1 files changed, 0 insertions, 2 deletions

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)));
   }
 }