[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/05: installer: Rename RUN-PARTIONING-PAGE.
From: |
guix-commits |
Subject: |
02/05: installer: Rename RUN-PARTIONING-PAGE. |
Date: |
Sun, 20 Sep 2020 20:35:57 -0400 (EDT) |
nckx pushed a commit to branch master
in repository guix.
commit 5e17ae7fbd38917264627701b73e7f38061402f0
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Sep 20 21:09:19 2020 +0200
installer: Rename RUN-PARTIONING-PAGE.
* gnu/installer/newt/partition.scm (run-partioning-page): Rename to
run-partitioning-page. Adjust all callers.
---
gnu/installer/newt.scm | 2 +-
gnu/installer/newt/partition.scm | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/gnu/installer/newt.scm b/gnu/installer/newt.scm
index a24a152..fdab721 100644
--- a/gnu/installer/newt.scm
+++ b/gnu/installer/newt.scm
@@ -107,7 +107,7 @@ problem. The backtrace is displayed below. Please report it
by email to \
(run-user-page))
(define (partition-page)
- (run-partioning-page))
+ (run-partitioning-page))
(define (services-page)
(run-services-page))
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index 54d595f..ed38287 100644
--- a/gnu/installer/newt/partition.scm
+++ b/gnu/installer/newt/partition.scm
@@ -32,7 +32,7 @@
#:use-module (srfi srfi-35)
#:use-module (newt)
#:use-module (parted)
- #:export (run-partioning-page))
+ #:export (run-partitioning-page))
(define (button-exit-action)
"Raise the &installer-step-abort condition."
@@ -725,7 +725,7 @@ by pressing the Exit button.~%~%")))
(run-disk-page result-disks new-user-partitions
#:guided? guided?)))))
-(define (run-partioning-page)
+(define (run-partitioning-page)
"Run a page asking the user for a partitioning method."
(define (run-page devices)
(let* ((items