summary refs log tree commit diff
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2022-09-02 19:44:59 +0200
committerMathieu Othacehe <othacehe@gnu.org>2022-09-07 14:26:34 +0200
commit0edb79b2a91947fd2abec420152cb46b3a4524b9 (patch)
treea528235a97c0e063de085d7ae57a45c010981ff0
parente917f1242c169f011dedd133515de5e87e267b93 (diff)
downloadguix-0edb79b2a91947fd2abec420152cb46b3a4524b9.tar.gz
image: Use #true and #false.
* gnu/image.scm: Use #true and #false instead of #t and #f respectively. No
functional change.
-rw-r--r--gnu/image.scm18
1 files changed, 9 insertions, 9 deletions
diff --git a/gnu/image.scm b/gnu/image.scm
index 44703934c9..4a0068934e 100644
--- a/gnu/image.scm
+++ b/gnu/image.scm
@@ -125,12 +125,12 @@ numeric expression ~%") value 'field))))
                         (default '()))  ;list of strings
   (label                partition-label)  ;string
   (uuid                 partition-uuid
-                        (default #f))  ;<uuid>
+                        (default #false))  ;<uuid>
   (flags                partition-flags
                         (default '())  ;list of symbols
                         (sanitize validate-partition-flags))
   (initializer          partition-initializer
-                        (default #f))) ;gexp | #f
+                        (default #false))) ;gexp | #false
 
 
 ;;;
@@ -162,11 +162,11 @@ that is not in SET, mentioning FIELD in the error message."
   image make-image
   image?
   (name               image-name ;symbol
-                      (default #f))
+                      (default #false))
   (format             image-format                ;symbol
                       (sanitize validate-image-format))
   (platform           image-platform ;<platform>
-                      (default #f))
+                      (default #false))
   (size               image-size  ;size in bytes as integer
                       (default 'guess)
                       (sanitize validate-size))
@@ -178,15 +178,15 @@ that is not in SET, mentioning FIELD in the error message."
   (partitions         image-partitions ;list of <partition>
                       (default '()))
   (compression?       image-compression? ;boolean
-                      (default #t))
+                      (default #true))
   (volatile-root?     image-volatile-root? ;boolean
-                      (default #t))
+                      (default #true))
   (shared-store?      image-shared-store? ;boolean
-                      (default #f))
+                      (default #false))
   (shared-network?    image-shared-network? ;boolean
-                      (default #f))
+                      (default #false))
   (substitutable?     image-substitutable? ;boolean
-                      (default #t)))
+                      (default #true)))
 
 
 ;;;