From 85caf5f3239a60039eb4593687eed03ba423e52d Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 16 Jan 2019 19:20:26 +0100
Subject: installer: "formating" → "formatting".
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/installer/newt/partition.scm,
gnu/installer/parted.scm: Replace "formating" with "formatting".
---
 gnu/installer/parted.scm | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'gnu/installer/parted.scm')

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 @@ (define-module (gnu installer parted)
             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 @@ (define-record-type* <user-partition>
                         (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 @@ (define (user-partition-description user-partition)
          (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 @@ (define (user-partition-description user-partition)
       ,@(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 @@ (define* (create-adjacent-partitions disk partitions
                (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 @@ (define* (auto-partition disk
                     (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 @@ (define (format-user-partitions user-partitions)
 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 @@ (define (format-user-partitions user-partitions)
 
        (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 @@ (define (init-parted)
 (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
-- 
cgit v1.2.3