summary refs log tree commit diff
path: root/gnu/image.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2020-06-13 14:01:18 +0200
committerMathieu Othacehe <othacehe@gnu.org>2020-06-13 15:20:52 +0200
commitf292d4719dead6a615187f325fbc0bb0e99d10b4 (patch)
tree1c24c9dabcf98907d64979ba070832679253d814 /gnu/image.scm
parent7ca533c7237622d70b423033c4506217d9ce4014 (diff)
downloadguix-f292d4719dead6a615187f325fbc0bb0e99d10b4.tar.gz
image: Add 'target' support.
* gnu/image.scm (<image>)[target]: New field,
(image-target): new public method.
* gnu/system/image.scm (hurd-disk-image): Set "i586-pc-gnu" as image 'target'
field,
(maybe-with-target): new procedure,
(system-image): honor image 'target' field using the above procedure.
Diffstat (limited to 'gnu/image.scm')
-rw-r--r--gnu/image.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/gnu/image.scm b/gnu/image.scm
index 0a92d168e9..19b466527b 100644
--- a/gnu/image.scm
+++ b/gnu/image.scm
@@ -33,6 +33,7 @@
             image
             image-name
             image-format
+            image-target
             image-size
             image-operating-system
             image-partitions
@@ -67,6 +68,8 @@
   image make-image
   image?
   (format             image-format) ;symbol
+  (target             image-target
+                      (default #f))
   (size               image-size  ;size in bytes as integer
                       (default 'guess))
   (operating-system   image-operating-system  ;<operating-system>