You can improve the search results by making use of the simple query language. Here is a list of supported query terms:
index fdc3685e7c..91a1854e68 100644
--- a/gnu/platform.scm
+++ b/gnu/platform.scm
@@ -66,10 +66,14 @@ (define-record-type* <platform> platform make-platform
platform?
(target platform-target)
(system platform-system)
- (linux-architecture platform-linux-architecture
+ (linux-architecture platform-linux-architecture*
(default #f))
(glibc-dynamic-linker platform-glibc-dynamic-linker))
+;; Provide a procedure so this can be used via module-ref
+(define (platform-linux-architecture platform)
+ (platform-linux-architecture* platform))
+
;;;
;;; Platforms.
diff --git a/guix/build-system/linux-module.scm b/guix/build-system/linux-module.scm
index 761ebe25b1..78a3ba95b2 100644
--- a/guix/build-system/linux-module.scm
+++ b/guix/build-system/linux-module.scm
@@ -51,7 +51,8 @@ (define (default-linux)
(define (system->arch system)
(let ((module (resolve-interface '(gnu platform))))
- ((module-ref module 'lookup-platform-by-target-or-system) system)))
+ ((module-ref module 'platform-linux-architecture)
+ ((module-ref module 'lookup-platform-by-target-or-system) system))))
(define (make-linux-module-builder linux)
(package
--
2.34.0
This issue is archived.
To comment on this conversation send email to 55591@debbugs.gnu.org