[gnunet-scheme] 155/324: enum: Fix compilation error on Guile 3.0.7.

[gnunet]

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.