summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-05-25 16:04:33 +0200
committerLudovic Courtès <ludo@gnu.org>2020-05-25 23:00:30 +0200
commite033700f17660ff936936cf89cc557b95d12bb13 (patch)
tree342497260e67920231f8325b48550a3d41a6fc4b /tests
parent6115ab1d2099b29097ac3c9988a82bb42a2c70aa (diff)
downloadpatches-e033700f17660ff936936cf89cc557b95d12bb13.tar
patches-e033700f17660ff936936cf89cc557b95d12bb13.tar.gz
tests: Hide quoted (define-module ...) form from Geiser.
* tests/gexp.scm (%extension-package): Split (define-module ...) form to fool Geiser.
Diffstat (limited to 'tests')
-rw-r--r--tests/gexp.scm3
1 files changed, 2 insertions, 1 deletions
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)))))))))