From 103d39f33771ac7b53ecd75df4847d4f7a227bee Mon Sep 17 00:00:00 2001 From: Alex Griffin Date: Thu, 30 May 2019 05:21:59 -0500 Subject: [PATCH] nongnu: linux-urls: Use version-major instead of string-take. * nongnu/packages/linux.scm (linux-urls): Use version-major instead of string-take. --- nongnu/packages/linux.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/nongnu/packages/linux.scm b/nongnu/packages/linux.scm index f12657d..f0b3d64 100644 --- a/nongnu/packages/linux.scm +++ b/nongnu/packages/linux.scm @@ -28,9 +28,8 @@ (define (linux-urls version) "Return a list of URLS for Linux VERSION." - (let ((major-version (string-take version 1))) - (list (string-append "https://www.kernel.org/pub/linux/kernel/v" - major-version ".x/linux-" version ".tar.xz")))) + (list (string-append "https://www.kernel.org/pub/linux/kernel/v" + (version-major version) ".x/linux-" version ".tar.xz"))) (define (corrupt-linux freedo version hash) (package