From bdd190e3aafa9b54ed93fefbe7c0307a9103d3ad Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Fri, 1 Oct 2021 15:02:43 +0200 Subject: build-system: linux-module: Don't explicitly return #t from phases. * guix/build-system/linux-module.scm (configure): Remove explicit #t return value. --- guix/build/linux-module-build-system.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/guix/build/linux-module-build-system.scm b/guix/build/linux-module-build-system.scm index 7c0dba8445..18ccf7cd8b 100644 --- a/guix/build/linux-module-build-system.scm +++ b/guix/build/linux-module-build-system.scm @@ -34,7 +34,7 @@ (define-module (guix build linux-module-build-system) ;; ;; Code: -;; Copied from make-linux-libre's "configure" phase. +;; Similar to make-linux-libre's "configure" phase. (define* (configure #:key inputs target arch #:allow-other-keys) (setenv "KCONFIG_NOTIMESTAMP" "1") (setenv "KBUILD_BUILD_TIMESTAMP" (getenv "SOURCE_DATE_EPOCH")) @@ -43,12 +43,11 @@ (define* (configure #:key inputs target arch #:allow-other-keys) (format #t "`ARCH' set to `~a'~%" (getenv "ARCH")) (when target + ;; TODO? (setenv "EXTRA_VERSION" ,extra-version) + ;; TODO? kernel ".config". (setenv "CROSS_COMPILE" (string-append target "-")) (format #t "`CROSS_COMPILE' set to `~a'~%" - (getenv "CROSS_COMPILE"))) - ; TODO: (setenv "EXTRA_VERSION" ,extra-version) - ; TODO: kernel ".config". - #t) + (getenv "CROSS_COMPILE")))) (define* (build #:key (make-flags '()) (parallel-build? #t) (source-directory ".") -- cgit v1.2.3