mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-13 10:30:43 +02:00
Code Releases Activity

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
Download patch file Download diff file Expand all files Collapse all files

3
tests/gexp.scm
View file

@ -78,7 +78,8 @@
(mkdir-p out) (mkdir-p out)
(call-with-output-file (string-append out "/hg2g.scm") (call-with-output-file (string-append out "/hg2g.scm")
(lambda (port) (lambda (port)
(write '(define-module (hg2g) (define defmod 'define-module) ;fool Geiser
(write `(,defmod (hg2g)
#:export (the-answer)) #:export (the-answer))
port) port)
(write '(define the-answer 42) port))))))))) (write '(define the-answer 42) port)))))))))