diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-05-25 16:04:33 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-05-25 23:00:30 +0200 |
| commit | e033700f17660ff936936cf89cc557b95d12bb13 (patch) | |
| tree | 342497260e67920231f8325b48550a3d41a6fc4b /tests | |
| parent | 6115ab1d2099b29097ac3c9988a82bb42a2c70aa (diff) | |
| download | patches-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.scm | 3 |
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))))))))) |