From 4cca91832b3fceed35eb46439fac7c12466d229d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 16 May 2014 10:22:19 +0200
Subject: [PATCH] authenticate: Add compatibility hack for Guile 2.0.5.
* guix/scripts/authenticate.scm (%default-port-conversion-strategy): New
variable. Reported by Andreas Enge <andreas@enge.fr>.
---
guix/scripts/authenticate.scm | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/guix/scripts/authenticate.scm b/guix/scripts/authenticate.scm
index 1b1e0b08ca4..e9900689faa 100644
--- a/guix/scripts/authenticate.scm
+++ b/guix/scripts/authenticate.scm
@@ -81,6 +81,13 @@ (define (validate-signature port)
(canonical-sexp->string subject)))
(leave (_ "error: corrupt signature data: ~a~%")
(canonical-sexp->string signature)))))
+
+(define %default-port-conversion-strategy
+ ;; This fluid is in Guile > 2.0.5.
+ (if (defined? '%default-port-conversion-strategy)
+ (@ (guile) %default-port-conversion-strategy)
+ (make-fluid #f)))
+
;;;
;;; Entry point with 'openssl'-compatible interface. We support this
--
GitLab