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 <wi...@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)
