tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

build-system: cmake: cmake-system-name-for-target: Use match.

Browse Source 
* guix/build-system/cmake.scm (cmake-system-name-for-target): Use match
instead of cond.

Change-Id: I57ebd07406693b19c83b6d1d643146adca4f8797
Signed-off-by: Greg Hogan <code@greghogan.com>
This commit is contained in:
Dariqq
2025-08-11 06:30:46 +00:00
committed by Andreas Enge
parent 2b4a4295cc
commit a1c5edf016
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
guix/build-system/cmake.scm
View File

@@ -4,6 +4,7 @@
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2025 Maxim Cournoyer <maxim@guixotic.coop>
;;; Copyright © 2025 Dariqq <dariqq@posteo.net>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -21,6 +22,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (guix build-system cmake)
#:use-module (ice-9 match)
#:use-module (guix store)
#:use-module (guix gexp)
#:use-module (guix utils)
@@ -45,11 +47,12 @@
(define* (cmake-system-name-for-target
#:optional (target (or (%current-target-system)
(%current-system))))
(cond ((target-hurd? target) "GNU")
((target-linux? target) "Linux")
((target-mingw? target) "Windows")
;; For avr, or1k-elf, xtensa-ath9k-elf
(else "Generic")))
(match target
((? target-hurd?) "GNU")
((? target-linux?) "Linux")
((? target-mingw?) "Windows")
;; For avr, or1k-elf, xtensa-ath9k-elf
(_ "Generic")))
(define %cmake-build-system-modules
;; Build-side modules imported by default.