guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 8118eb0b5aac3d0327a570f7cf454bd59760046d
Author: Jean-Baptiste Note <[email protected]>
AuthorDate: Sun Sep 14 14:14:19 2025 +0200
file-systems: Fix article usage in docstrings.
* gnu/build/file-systems.scm (linux-swap-superblock?)
(read-linux-swap-superblock, bcachefs-superblock?): Use "a" instead of
"an" before consonant sounds.
Change-Id: Ifb36a125733ff898ecbef0a0a546819130707fba
Signed-off-by: Ludovic Courtès <[email protected]>
---
gnu/build/file-systems.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm
index 1d919c90ce..1ff954583a 100644
--- a/gnu/build/file-systems.scm
+++ b/gnu/build/file-systems.scm
@@ -286,14 +286,14 @@ unmounted."
(define %page-size 4096)
(define (linux-swap-superblock? sblock)
- "Return #t when SBLOCK is an linux-swap superblock."
+ "Return #t when SBLOCK is a linux-swap superblock."
(and (= (bytevector-length sblock) %page-size)
(bytevector=? (sub-bytevector sblock (- %page-size 10) 10)
%linux-swap-magic)))
(define (read-linux-swap-superblock device)
"Return the raw contents of DEVICE's linux-swap superblock as a bytevector,
or #f
-if DEVICE does not contain an linux-swap file system."
+if DEVICE does not contain a linux-swap file system."
(read-superblock device 0 %page-size linux-swap-superblock?))
;; See 'union swap_header' in 'include/linux/swap.h'.
@@ -382,7 +382,7 @@ hibernation image from which we can resume."
(identifier-syntax (endianness little)))
(define (bcachefs-superblock? sblock)
- "Return #t when SBLOCK is an bcachefs superblock."
+ "Return #t when SBLOCK is a bcachefs superblock."
(bytevector=? (sub-bytevector sblock 24 16)
#vu8(#xc6 #x85 #x73 #xf6 #x4e #x1a #x45 #xca
#x82 #x65 #xf5 #x7f #x48 #xba #x6d #x81)))
