ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Hide quoted (define-module ...) form from Geiser.

Browse source 
* tests/gexp.scm (%extension-package): Split (define-module ...) form to
fool Geiser.
This commit is contained in:
Ludovic Courtès 2020-05-25 16:04:33 +02:00
parent 6115ab1d20
commit e033700f17
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tests/gexp.scm
View file

@ -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)))))))))