[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/03: vm: 'expression->derivation-in-linux-vm' leads to a kernel panic
From: |
guix-commits |
Subject: |
01/03: vm: 'expression->derivation-in-linux-vm' leads to a kernel panic upon failure. |
Date: |
Sun, 17 Mar 2019 11:30:10 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit e6c46ec42ea6e986b1030a145cb391235b689735
Author: Ludovic Courtès <address@hidden>
Date: Sun Mar 17 14:39:23 2019 +0100
vm: 'expression->derivation-in-linux-vm' leads to a kernel panic upon
failure.
Partially fixes <https://bugs.gnu.org/34276>.
Reported by Tobias Geerinckx-Rice <address@hidden>.
* gnu/system/vm.scm (expression->derivation-in-linux-vm)[loader]: Call
'exit' when USER-BUILDER exits with a non-zero code.
---
gnu/system/vm.scm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index e561285..b671c74 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -187,8 +187,9 @@ made available under the /xchg CIFS share."
;; When USER-BUILDER succeeds, reboot (indicating a
;; success), otherwise die, which causes a kernel panic
;; ("Attempted to kill init!").
- #~(when (zero? (system* #$user-builder))
- (reboot))))
+ #~(if (zero? (system* #$user-builder))
+ (reboot)
+ (exit 1))))
(let ((initrd (or initrd
(base-initrd file-systems