me/guix
Archived
1
0
Fork 0
Code Activity

image: Use #true and #false.

Browse source 
* gnu/image.scm: Use #true and #false instead of #t and #f respectively. No
functional change.
This commit is contained in:
Mathieu Othacehe 2022-09-02 19:44:59 +02:00
parent e917f1242c
commit 0edb79b2a9
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/image.scm
View file

@ -125,12 +125,12 @@ numeric expression ~%") value 'field))))
(default '())) ;list of strings (default '())) ;list of strings
(label partition-label) ;string (label partition-label) ;string
(uuid partition-uuid (uuid partition-uuid
(default #f)) ;<uuid> (default #false)) ;<uuid>
(flags partition-flags (flags partition-flags
(default '()) ;list of symbols (default '()) ;list of symbols
(sanitize validate-partition-flags)) (sanitize validate-partition-flags))
(initializer partition-initializer (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 make-image
image? image?
(name image-name ;symbol (name image-name ;symbol
(default #f)) (default #false))
(format image-format ;symbol (format image-format ;symbol
(sanitize validate-image-format)) (sanitize validate-image-format))
(platform image-platform ;<platform> (platform image-platform ;<platform>
(default #f)) (default #false))
(size image-size ;size in bytes as integer (size image-size ;size in bytes as integer
(default 'guess) (default 'guess)
(sanitize validate-size)) (sanitize validate-size))
@ -178,15 +178,15 @@ that is not in SET, mentioning FIELD in the error message."
(partitions image-partitions ;list of <partition> (partitions image-partitions ;list of <partition>
(default '())) (default '()))
(compression? image-compression? ;boolean (compression? image-compression? ;boolean
(default #t)) (default #true))
(volatile-root? image-volatile-root? ;boolean (volatile-root? image-volatile-root? ;boolean
(default #t)) (default #true))
(shared-store? image-shared-store? ;boolean (shared-store? image-shared-store? ;boolean
(default #f)) (default #false))
(shared-network? image-shared-network? ;boolean (shared-network? image-shared-network? ;boolean
(default #f)) (default #false))
(substitutable? image-substitutable? ;boolean (substitutable? image-substitutable? ;boolean
(default #t))) (default #true)))
;;; ;;;