diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2020-09-20 21:09:19 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2020-09-21 00:31:15 +0200 |
| commit | 5e17ae7fbd38917264627701b73e7f38061402f0 (patch) | |
| tree | d302e9267323e309b16b5cc5b76a6cce55153480 | |
| parent | e1f3788944ee154ba9b33c891c4ccf039a1ff39a (diff) | |
| download | guix-5e17ae7fbd38917264627701b73e7f38061402f0.tar guix-5e17ae7fbd38917264627701b73e7f38061402f0.tar.gz | |
installer: Rename RUN-PARTIONING-PAGE.
* gnu/installer/newt/partition.scm (run-partioning-page): Rename to
run-partitioning-page. Adjust all callers.
| -rw-r--r-- | gnu/installer/newt.scm | 2 | ||||
| -rw-r--r-- | 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 a24a152984..fdab721b2f 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 54d595f54e..ed38287fe8 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 |