Do not reset quote level on calls in has_unquotes/2

The bug was introduced in 146fb4e

Signed-off-by: José Valim <jose.valim@gmail.com>

Author: lukaszsamson

lib/elixir/src/elixir_quote.erl

@@ -55,7 +55,7 @@ end;
 has_unquotes({{'.', _, [_, unquote]}, _, [_]}, _) -> true;
 has_unquotes({Var, _, Ctx}, _) when is_atom(Var), is_atom(Ctx) -> false;
 has_unquotes({Name, _, Args}, QuoteLevel) when is_list(Args) ->
-  has_unquotes(Name) orelse lists:any(fun(Child) -> has_unquotes(Child, QuoteLevel) end, Args);
+  has_unquotes(Name, QuoteLevel) orelse lists:any(fun(Child) -> has_unquotes(Child, QuoteLevel) end, Args);
 has_unquotes({Left, Right}, QuoteLevel) ->
   has_unquotes(Left, QuoteLevel) orelse has_unquotes(Right, QuoteLevel);
 has_unquotes(List, QuoteLevel) when is_list(List) ->

lib/elixir/test/elixir/kernel/quote_test.exs

@@ -739,6 +739,15 @@ defmodule Kernel.QuoteTest.HasUnquoteTest do
 
     refute :elixir_quote.has_unquotes(ast)
 
+    ast =
+      quote unquote: false do
+        quote do
+          unquote(x)()
+        end
+      end
+
+    refute :elixir_quote.has_unquotes(ast)
+
     ast =
       quote unquote: false do
         quote do