diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-05-16 10:22:19 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-05-16 10:22:19 +0200 |
| commit | 4cca91832b3fceed35eb46439fac7c12466d229d (patch) | |
| tree | 89589d91be27048d3e0c1ea4d64a2180ff5da356 /guix/scripts/authenticate.scm | |
| parent | d0281fec03d93a44f7abaa270a3f7417b8e14627 (diff) | |
| download | gnu-guix-4cca91832b3fceed35eb46439fac7c12466d229d.tar gnu-guix-4cca91832b3fceed35eb46439fac7c12466d229d.tar.gz | |
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>.
Diffstat (limited to 'guix/scripts/authenticate.scm')
| -rw-r--r-- | guix/scripts/authenticate.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guix/scripts/authenticate.scm b/guix/scripts/authenticate.scm index 1b1e0b08ca..e9900689fa 100644 --- a/guix/scripts/authenticate.scm +++ b/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 |