diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-03-25 15:58:52 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-03-25 18:54:52 +0100 |
| commit | 212ece42b0578d0eccb4f0b426517cd618043548 (patch) | |
| tree | c87c004e6e3ca38ff5dd787e5f377e7a168d015e | |
| parent | 505b1aa88fc900b85c978fec55a25d47266140f6 (diff) | |
| download | guix-212ece42b0578d0eccb4f0b426517cd618043548.tar.gz | |
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.
| -rw-r--r-- | guix/build/download.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/build/download.scm b/guix/build/download.scm index f9715e10f7..54115a9de2 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -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 |