From e033700f17660ff936936cf89cc557b95d12bb13 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
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(-)

(limited to 'tests/gexp.scm')

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 @@ (define %extension-package
                         (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