diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index 960339e8bf..0f8927844b 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014-2024 Ludovic Courtès +;;; Copyright © 2014-2025 Ludovic Courtès ;;; Copyright © 2015 David Thompson ;;; Copyright © 2015 Mark H Weaver ;;; Copyright © 2017 Mathieu Othacehe @@ -783,7 +783,7 @@ (define (string->utf-8/nul-terminated str) (define KEXEC_FILE_UNLOAD #x00000001) (define KEXEC_FILE_ON_CRASH #x00000002) (define KEXEC_FILE_NO_INITRAMFS #x00000004) -(define KEXEC_FILE_DEBUG #x00000008) +(define KEXEC_FILE_DEBUG #x00000008) ;missing from Linux 6.6 (define kexec-load-file (let* ((proc (syscall->procedure int "syscall" diff --git a/guix/scripts/system/reconfigure.scm b/guix/scripts/system/reconfigure.scm index e9e16e3422..96e5bff351 100644 --- a/guix/scripts/system/reconfigure.scm +++ b/guix/scripts/system/reconfigure.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014-2022, 2024 Ludovic Courtès +;;; Copyright © 2014-2022, 2024-2025 Ludovic Courtès ;;; Copyright © 2016 Alex Kost ;;; Copyright © 2016, 2017, 2018 Chris Marusich ;;; Copyright © 2017 Mathieu Othacehe @@ -198,8 +198,7 @@ (define (kexec-loading-program os) (kexec-load-file kernel initrd (string-join (list #$@(operating-system-kernel-arguments - os root-device))) - KEXEC_FILE_DEBUG))))))) + os root-device)))))))))) (define* (upgrade-shepherd-services eval os) "Using EVAL, a monadic procedure taking a single G-Expression as an argument,