~ruther/guix-local

212ece42b0578d0eccb4f0b426517cd618043548 — Ludovic Courtès 12 years ago 505b1aa
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.
1 files changed, 3 insertions(+), 3 deletions(-)

M guix/build/download.scm
M guix/build/download.scm => guix/build/download.scm +3 -3
@@ 196,9 196,9 @@ which is not available during bootstrap."
  "Fetch data from URI and write it to FILE.  Return FILE on success."

  (define post-2.0.7?
    (or (string>? (major-version) "2")
        (string>? (minor-version) "0")
        (string>? (micro-version) "7")
    (or (> (string->number (major-version)) 2)
        (> (string->number (minor-version)) 0)
        (> (string->number (micro-version)) 7)
        (string>? (version) "2.0.7")))

  (define headers