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.
master
Ludovic Courtès 2014-03-25 15:58:52 +01:00
parent 505b1aa88f
commit 212ece42b0
1 changed files with 3 additions and 3 deletions

View File

@ -196,9 +196,9 @@ which is not available during bootstrap."
"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