[Guile-commits] branch main updated: Fix test for unique macro-introduced toplevels

[Andy Wingo]

This is an automated email from the git hooks/post-receive script.

wingo pushed a commit to branch main
in repository guile.

The following commit(s) were added to refs/heads/main by this push:
     new 49f24d2bf Fix test for unique macro-introduced toplevels
49f24d2bf is described below

commit 49f24d2bf569821d110d8e603467eb3892a29862
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Mon Jan 29 11:34:59 2024 +0100

    Fix test for unique macro-introduced toplevels
---
 test-suite/tests/syntax.test | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index f0cdc1cbf..82c99f65e 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -1697,15 +1697,17 @@
 
 (with-test-prefix "duplicate top-level introduced definitions"
   (pass-if-equal '(42 69)
-      (begin
-        (define-syntax-rule (defconst f val)
-          (begin
-            ;; The zeros cause a hash collision.
-            (define t (begin 0 0 0 0 0 0 0 0 0 val))
-            (define (f) t)))
-        (defconst a 42)
-        (defconst b 69)
-        (list (a) (b)))))
+      (primitive-eval
+       (macroexpand
+        '(begin
+           (define-syntax-rule (defconst f val)
+             (begin
+               ;; The zeros cause a hash collision.
+               (define t (begin 0 0 0 0 0 0 0 0 0 val))
+               (define (f) t)))
+           (defconst a 42)
+           (defconst b 69)
+           (list (a) (b)))))))
 
 ;;; Local Variables:
 ;;; eval: (put 'pass-if-syntax-error 'scheme-indent-function 1)