From 1dd7b87f101ce99b37be5c769904c1aa2f6a0615 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Tue, 26 May 2020 13:05:22 +0200
Subject: image: Set offset default to zero.

* gnu/image.scm (<partition>)[offset]: Set to zero by default.
* gnu/system/image.scm (system-disk-image): Adapt accordingly.
---
 gnu/image.scm        | 2 +-
 gnu/system/image.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/image.scm b/gnu/image.scm
index 3a02692950..b434ed50e3 100644
--- a/gnu/image.scm
+++ b/gnu/image.scm
@@ -48,7 +48,7 @@
   partition?
   (device      partition-device (default #f))
   (size        partition-size)
-  (offset      partition-offset (default #f))
+  (offset      partition-offset (default 0))
   (file-system partition-file-system (default "ext4"))
   (label       partition-label (default #f))
   (uuid        partition-uuid (default #f))
diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 6b5a36ffc6..cb770a17e8 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -253,7 +253,7 @@ used in the image."
                   #$label
                   #$dos-type
                   #$image
-                  #$(or offset 0))))
+                  #$offset)))
 
     (let* ((format (image-format image))
            (image-type (format->image-type format))
-- 
cgit v1.2.3