mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

Fix test for unique macro-introduced toplevels

Browse source
This commit is contained in:
Andy Wingo 2024-01-29 11:34:59 +01:00
parent bb5829f5ff
commit 49f24d2bf5
1 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/syntax.test
View file

@ -1697,7 +1697,9 @@
(with-test-prefix "duplicate top-level introduced definitions"
(pass-if-equal '(42 69)
(begin
(primitive-eval
(macroexpand
'(begin
(define-syntax-rule (defconst f val)
(begin
;; The zeros cause a hash collision.
@ -1705,7 +1707,7 @@
(define (f) t)))
(defconst a 42)
(defconst b 69)
(list (a) (b)))))
(list (a) (b)))))))
;;; Local Variables:
;;; eval: (put 'pass-if-syntax-error 'scheme-indent-function 1)