From e033700f17660ff936936cf89cc557b95d12bb13 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 25 May 2020 16:04:33 +0200 Subject: tests: Hide quoted (define-module ...) form from Geiser. * tests/gexp.scm (%extension-package): Split (define-module ...) form to fool Geiser. --- tests/gexp.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/gexp.scm b/tests/gexp.scm index e073a7b816..20ef8d2648 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm @@ -78,7 +78,8 @@ (mkdir-p out) (call-with-output-file (string-append out "/hg2g.scm") (lambda (port) - (write '(define-module (hg2g) + (define defmod 'define-module) ;fool Geiser + (write `(,defmod (hg2g) #:export (the-answer)) port) (write '(define the-answer 42) port))))))))) -- cgit v1.2.3