1 files changed, 7 insertions(+), 0 deletions(-)

M guix/scripts/authenticate.scm

@@ 81,6 81,13 @@ to stdout upon success."
                    (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