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

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

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