~ruther/guix-local: Fix Guile version checking in the "web" code.

16df248e4b24b174d6e2eb7167730d6674b7441e — Cyril Roelandt 12 years ago 392b5d8

Fix Guile version checking in the "web" code.

* guix/web.scm (http-fetch): fix Guile version checking. The previous version
would use features from Guile 2.0.9+ when using Guile 2.0.7.

patch browse .tar.gz

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

M guix/web.scm

M guix/web.scm => guix/web.scm +7 -8

@@ 157,14 157,13 @@ unbuffered port, suitable for use in `filtered-port'."
                    ;; Try hard to use the API du jour to get an input port.
                    ;; On Guile 2.0.5 and before, we can only get a string or
                    ;; bytevector, and not an input port.  Work around that.
-                   (if (version>? "2.0.7" (version))
-                       (if (defined? 'http-get*)
-                           (http-get* uri #:decode-body? text?
-                                      #:port port)              ; 2.0.7
-                           (http-get uri #:decode-body? text?
-                                     #:port port))              ; 2.0.5-
-                       (http-get uri #:streaming? #t
-                                 #:port port)))                 ; 2.0.9+
+                  (if (version>? (version) "2.0.7")
+                      (http-get uri #:streaming? #t #:port port) ; 2.0.9+
+                      (if (defined? 'http-get*)
+                          (http-get* uri #:decode-body? text?
+                                     #:port port)                ; 2.0.7
+                          (http-get uri #:decode-body? text?
+                                    #:port port))))              ; 2.0.5-
                   ((code)
                    (response-code resp)))
       (case code