05/06: scripts: system: Check the image operating-system.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit 6454164412ef8b0c5e5bd08b7b584cddd0784515
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Aug 30 19:21:16 2022 +0200

    scripts: system: Check the image operating-system.
    
    * guix/scripts/system.scm (process-action): Check that the provided image 
has
    a defined operating-system.
---
 guix/scripts/system.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 443e9d3282..4bcf789703 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -41,6 +41,7 @@
   #:use-module (guix grafts)
   #:use-module (guix gexp)
   #:use-module (guix derivations)
+  #:use-module (guix diagnostics)
   #:use-module (guix packages)
   #:use-module (guix utils)
   #:use-module (guix monads)
@@ -1257,7 +1258,10 @@ resulting from command-line parsing."
                          (size image-size)
                          (volatile-root? volatile?)
                          (shared-network? shared-network?))))
-         (os          (image-operating-system image))
+         (os          (or (image-operating-system image)
+                          (raise
+                           (formatted-message
+                            (G_ "image lacks an operating-system")))))
          (target-file (match args
                         ((first second) second)
                         (_ #f)))