[gnunet-scheme] 76/324: scripts: download-store: make dependency on guix optional

[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 f49852223ad0005cb6585c22e6dc5e11ab64dbcf
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sat Feb 6 20:50:18 2021 +0100

    scripts: download-store: make dependency on guix optional
    
    It is only used for generating nars now.
    
    * gnu/gnunet/scripts/guix-stuff.scm
      (write-file-tree/lazywrap): wrap write-file-tree.
    * gnu/gnunet/scripts/download-store.scm: use wrapped
      write-file-tree.
---
 gnu/gnunet/scripts/download-store.scm | 3 ---
 gnu/gnunet/scripts/guix-stuff.scm     | 7 ++++++-
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/gnu/gnunet/scripts/download-store.scm 
b/gnu/gnunet/scripts/download-store.scm
index 50d2c4b..ad57e2e 100644
--- a/gnu/gnunet/scripts/download-store.scm
+++ b/gnu/gnunet/scripts/download-store.scm
@@ -26,9 +26,6 @@
          (rnrs io simple)
          (rnrs io ports)
          (rnrs bytevectors)
-         (only (guix serialization)
-               ;; XXX make optional
-               write-file-tree)
          (ice-9 match)
          (only (rnrs control) when unless)
          (only (rnrs programs) exit)
diff --git a/gnu/gnunet/scripts/guix-stuff.scm 
b/gnu/gnunet/scripts/guix-stuff.scm
index d2f61de..ca129bb 100644
--- a/gnu/gnunet/scripts/guix-stuff.scm
+++ b/gnu/gnunet/scripts/guix-stuff.scm
@@ -20,7 +20,12 @@
 
 (define-module (gnu gnunet scripts guix-stuff)
   #:export (call-with-temporary-output-file
-           temporary-output-file))
+           temporary-output-file
+           (write-file-tree/lazywrap . write-file-tree))
+  #:autoload (guix serialization) (write-file-tree))
+
+(define (write-file-tree/lazywrap . rest)
+  (apply write-file-tree rest))
 
 (define (call-with-temporary-output-file proc)
   "Call PROC with a name of a temporary file and open output port to that

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.