mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +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

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

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