fix #24289, missing argument to resolve-expansion-vars-with-new-env…

… in macroexpand (#24290)

src/macroexpand.scm

@@ -304,9 +304,9 @@
                              ((assignment? arg)
                               `(global
                                 (= ,(unescape (cadr arg))
-                                   ,(resolve-expansion-vars-with-new-env (caddr arg) env m inarg))))
+                                   ,(resolve-expansion-vars-with-new-env (caddr arg) env m parent-scope inarg))))
                              (else
-                              `(global ,(resolve-expansion-vars-with-new-env arg env m inarg))))))
+                              `(global ,(resolve-expansion-vars-with-new-env arg env m parent-scope inarg))))))
            ((using import importall export meta line inbounds boundscheck simdloop gc_preserve gc_preserve_end) (map unescape e))
            ((macrocall) e) ; invalid syntax anyways, so just act like it's quoted.
            ((symboliclabel) e)

test/parse.jl

@@ -1376,3 +1376,9 @@ end
 @test parse("@foo [1] + [2]") == parse("@foo([1] + [2])")
 @test parse("@Mdl.foo[1] + [2]") == parse("@Mdl.foo([1]) + [2]")
 @test parse("@Mdl.foo [1] + [2]") == parse("@Mdl.foo([1] + [2])")
+
+# issue #24289
+macro m24289()
+    :(global $(esc(:x24289)) = 1)
+end
+@test (@macroexpand @m24289) == :(global x24289 = 1)