download: Don't use 'http-get*' on Guile 2.0.10+.

* guix/build/download.scm (http-fetch)[post-2.0.7?]: Use
  'string->number' and numeric comparison.  This fixes version
  comparison with "2.0.10" and subsequent 2.0 releases.
This commit is contained in:
Ludovic Courtès 2014-03-25 15:58:52 +01:00
parent 505b1aa88f
commit 212ece42b0

View file

@ -196,9 +196,9 @@ (define (http-fetch uri file)
"Fetch data from URI and write it to FILE. Return FILE on success." "Fetch data from URI and write it to FILE. Return FILE on success."
(define post-2.0.7? (define post-2.0.7?
(or (string>? (major-version) "2") (or (> (string->number (major-version)) 2)
(string>? (minor-version) "0") (> (string->number (minor-version)) 0)
(string>? (micro-version) "7") (> (string->number (micro-version)) 7)
(string>? (version) "2.0.7"))) (string>? (version) "2.0.7")))
(define headers (define headers