summaryrefslogtreecommitdiff
path: root/gnu/installer
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/installer')
-rw-r--r--gnu/installer/newt/partition.scm18
-rw-r--r--gnu/installer/parted.scm26
2 files changed, 22 insertions, 22 deletions
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index 1c3ce80ce5..c22e1c0290 100644
--- a/gnu/installer/newt/partition.scm
+++ b/gnu/installer/newt/partition.scm
@@ -52,10 +52,10 @@
#:button-callback-procedure button-exit-action)))
(car result)))
-(define (draw-formating-page)
+(define (draw-formatting-page)
"Draw a page to indicate partitions are being formated."
(draw-info-page
- (format #f (G_ "Partition formating is in progress, please wait."))
+ (format #f (G_ "Partition formatting is in progress, please wait."))
(G_ "Preparing partitions")))
(define (run-device-page devices)
@@ -288,13 +288,13 @@ by USER-PART, if it is applicable for the partition type."
(G_ "Encryption label")))))
(user-partition
(inherit target-user-partition)
- (need-formating? #t)
+ (need-formatting? #t)
(crypt-label new-label))))
- ((need-formating?)
+ ((need-formatting?)
(user-partition
(inherit target-user-partition)
- (need-formating?
- (not (user-partition-need-formating?
+ (need-formatting?
+ (not (user-partition-need-formatting?
target-user-partition)))))
((size)
(let* ((old-size (user-partition-size target-user-partition))
@@ -392,7 +392,7 @@ partition. Leave this field empty if you don't want to set a mounting point.")
(and new-partition
(user-partition
(inherit new-user-partition)
- (need-formating? #t)
+ (need-formatting? #t)
(file-name (partition-get-path new-partition))
(disk-file-name (device-path device))
(parted-object new-partition))))
@@ -758,8 +758,8 @@ by pressing the Exit button.~%~%")))
(user-partitions (run-page non-install-devices))
(user-partitions-with-pass (prompt-luks-passwords
user-partitions))
- (form (draw-formating-page)))
- ;; Make sure the disks are not in use before proceeding to formating.
+ (form (draw-formatting-page)))
+ ;; Make sure the disks are not in use before proceeding to formatting.
(free-parted non-install-devices)
(format-user-partitions user-partitions-with-pass)
(destroy-form-and-pop form)
diff --git a/gnu/installer/parted.scm b/gnu/installer/parted.scm
index 40054c0be2..187311e633 100644
--- a/gnu/installer/parted.scm
+++ b/gnu/installer/parted.scm
@@ -55,7 +55,7 @@
user-partition-start
user-partition-end
user-partition-mount-point
- user-partition-need-formating?
+ user-partition-need-formatting?
user-partition-parted-object
find-esp-partition
@@ -154,7 +154,7 @@
(default #f))
(mount-point user-partition-mount-point ;string
(default #f))
- (need-formating? user-partition-need-formating? ; boolean
+ (need-formatting? user-partition-need-formatting? ; boolean
(default #f))
(parted-object user-partition-parted-object ; <partition> from parted
(default #f)))
@@ -541,7 +541,7 @@ determined by MAX-LENGTH-COLUMN procedure."
(fs-type-name (user-fs-type-name fs-type))
(bootable? (user-partition-bootable? user-partition))
(esp? (user-partition-esp? user-partition))
- (need-formating? (user-partition-need-formating? user-partition))
+ (need-formatting? (user-partition-need-formatting? user-partition))
(crypt-label (user-partition-crypt-label user-partition))
(size (user-partition-size user-partition))
(mount-point (user-partition-mount-point user-partition)))
@@ -585,9 +585,9 @@ determined by MAX-LENGTH-COLUMN procedure."
,@(if (or (freespace-partition? partition)
(eq? fs-type 'swap))
'()
- `((need-formating?
+ `((need-formatting?
. ,(string-append "Format the partition? : "
- (if need-formating? "Yes" "No")))))
+ (if need-formatting? "Yes" "No")))))
,@(if (or (eq? type 'extended)
(eq? fs-type 'swap))
'()
@@ -871,13 +871,13 @@ partition."
(error
(format #f "Unable to create partition ~a~%" name)))))))))
-(define (force-user-partitions-formating user-partitions)
+(define (force-user-partitions-formatting user-partitions)
"Set the NEED-FORMATING? fields to #t on all <user-partition> records of
USER-PARTITIONS list and return the updated list."
(map (lambda (p)
(user-partition
(inherit p)
- (need-formating? #t)))
+ (need-formatting? #t)))
user-partitions))
(define* (auto-partition disk
@@ -992,7 +992,7 @@ swap partition, a root partition and a home partition."
(crypt-label (and encrypted? "crypthome"))
(size "100%")
(mount-point "/home")))))))
- (new-partitions* (force-user-partitions-formating
+ (new-partitions* (force-user-partitions-formatting
new-partitions)))
(create-adjacent-partitions disk
new-partitions*
@@ -1091,8 +1091,8 @@ USER-PARTITION if it is encrypted, or the plain file-name otherwise."
NEED-FORMATING? field set to #t."
(for-each
(lambda (user-partition)
- (let* ((need-formating?
- (user-partition-need-formating? user-partition))
+ (let* ((need-formatting?
+ (user-partition-need-formatting? user-partition))
(type (user-partition-type user-partition))
(crypt-label (user-partition-crypt-label user-partition))
(file-name (user-partition-upper-file-name user-partition))
@@ -1102,11 +1102,11 @@ NEED-FORMATING? field set to #t."
(case fs-type
((ext4)
- (and need-formating?
+ (and need-formatting?
(not (eq? type 'extended))
(create-ext4-file-system file-name)))
((fat32)
- (and need-formating?
+ (and need-formatting?
(not (eq? type 'extended))
(create-fat32-file-system file-name)))
((swap)
@@ -1293,7 +1293,7 @@ from (gnu system mapped-devices) and return it."
(define (free-parted devices)
"Deallocate memory used for DEVICES in parted, force sync them and wait for
the devices not to be used before returning."
- ;; XXX: Formating and further operations on disk partition table may fail
+ ;; XXX: Formatting and further operations on disk partition table may fail
;; because the partition table changes are not synced, or because the device
;; is still in use, even if parted should have finished editing
;; partitions. This is not well understood, but syncing devices and waiting