[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 155/324: enum: Fix compilation error on Guile 3.0.7.
From: |
gnunet |
Subject: |
[gnunet-scheme] 155/324: enum: Fix compilation error on Guile 3.0.7. |
Date: |
Tue, 21 Sep 2021 13:23:15 +0200 |
This is an automated email from the git hooks/post-receive script.
maxime-devos pushed a commit to branch master
in repository gnunet-scheme.
commit 04cee90cad250ffb6a7bf6c553925912bf09a68e
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sun Jul 18 20:36:09 2021 +0200
enum: Fix compilation error on Guile 3.0.7.
* gnu/extractor/enum.scm
(value, enumeration): Use 'quote' and 'datum->syntax' on
the result of 'syntax-source'.
---
gnu/extractor/enum.scm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/gnu/extractor/enum.scm b/gnu/extractor/enum.scm
index ea87faf..1d4e4b7 100644
--- a/gnu/extractor/enum.scm
+++ b/gnu/extractor/enum.scm
@@ -105,6 +105,8 @@
(lambda (record port)
(let ((sources (value-source record)))
(if sources
+ ;; TODO source:[...] + syntax-source isn't correct,
+ ;; at least on Guile 3.0.7, though no exception will result.
(format port "#<value (~a ~a) index: ~a at ~a:~a:~a>"
(enum-name ((value-enum-thunk record)))
(value->symbol record)
@@ -216,7 +218,7 @@ module, and @var{enum} must be defined the same in the
build and host."
#f
#,docstring
thunk
- #,(syntax-source s))))))))
+ '#,(datum->syntax #f (syntax-source s)))))))))
;; TODO verify indices are correct
(define-syntax enumeration
@@ -229,7 +231,7 @@ module, and @var{enum} must be defined the same in the
build and host."
#`(%make-enum/fix 'maximum
'name
(vector entry ...)
- #,(syntax-source s)
+ '#,(datum->syntax #f (syntax-source s))
doc)))))
(define-syntax define-enumeration
--
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.
- [gnunet-scheme] 102/324: tests: config-parser: Don't generate inexact numbers., (continued)
- [gnunet-scheme] 102/324: tests: config-parser: Don't generate inexact numbers., gnunet, 2021/09/21
- [gnunet-scheme] 116/324: utils: hat-let: Fix inline procedure definitions., gnunet, 2021/09/21
- [gnunet-scheme] 117/324: mq: Define envelope data type, again., gnunet, 2021/09/21
- [gnunet-scheme] 126/324: netstruct: Verify there is a setter (not a reader) in set%!., gnunet, 2021/09/21
- [gnunet-scheme] 128/324: netstruct: Raise &unwritable, not an &unreadable, in set%!., gnunet, 2021/09/21
- [gnunet-scheme] 131/324: tests: mq: Work-around guile-fibers bug., gnunet, 2021/09/21
- [gnunet-scheme] 143/324: tests: Extract conservative-gc? in a library., gnunet, 2021/09/21
- [gnunet-scheme] 150/324: Merge branch 'master' into proper-mq, gnunet, 2021/09/21
- [gnunet-scheme] 148/324: utils: tokeniser: Split message streams into individual messages., gnunet, 2021/09/21
- [gnunet-scheme] 149/324: mq: Delete unused and obsolete message-io module., gnunet, 2021/09/21
- [gnunet-scheme] 155/324: enum: Fix compilation error on Guile 3.0.7.,
gnunet <=
- [gnunet-scheme] 160/324: enum: symbol->value: Return #f if the symbol doesn't exist., gnunet, 2021/09/21
- [gnunet-scheme] 159/324: Makefile.am: Correct file name of test., gnunet, 2021/09/21
- [gnunet-scheme] 154/324: mq: Implement 'inject-error!'., gnunet, 2021/09/21
- [gnunet-scheme] 156/324: mq-impl/stream: Implement on top of ports., gnunet, 2021/09/21
- [gnunet-scheme] 162/324: Merge branch 'proper-mq', gnunet, 2021/09/21
- [gnunet-scheme] 161/324: guix: Patch 'guile' to fix some bugs., gnunet, 2021/09/21
- [gnunet-scheme] 152/324: utils: tokeniser: Implement 'add-from-port!'., gnunet, 2021/09/21
- [gnunet-scheme] 157/324: README.org: Note Guile 3.0.7 cannot be used for compilation., gnunet, 2021/09/21
- [gnunet-scheme] 151/324: utils: tokeniser: Some extra documentation., gnunet, 2021/09/21
- [gnunet-scheme] 153/324: concurrency: repeated-conditions: New module., gnunet, 2021/09/21