mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +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" (with-test-prefix "duplicate top-level introduced definitions"
(pass-if-equal '(42 69) (pass-if-equal '(42 69)
(begin (primitive-eval
(macroexpand
'(begin
(define-syntax-rule (defconst f val) (define-syntax-rule (defconst f val)
(begin (begin
;; The zeros cause a hash collision. ;; The zeros cause a hash collision.
@ -1705,7 +1707,7 @@
(define (f) t))) (define (f) t)))
(defconst a 42) (defconst a 42)
(defconst b 69) (defconst b 69)
(list (a) (b))))) (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)