ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 12:39:36 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Rename RUN-PARTIONING-PAGE.

Browse source 
* gnu/installer/newt/partition.scm (run-partioning-page): Rename to
run-partitioning-page.  Adjust all callers.
This commit is contained in:
Tobias Geerinckx-Rice 2020-09-20 21:09:19 +02:00
parent e1f3788944
commit 5e17ae7fbd
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/installer/newt.scm
View file

@ -107,7 +107,7 @@ (define (user-page)
(run-user-page))
(define (partition-page)
(run-partioning-page))
(run-partitioning-page))
(define (services-page)
(run-services-page))

4
gnu/installer/newt/partition.scm
View file

@ -32,7 +32,7 @@ (define-module (gnu installer newt partition)
#: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 @@ (define (hotkey-action key listbox-item)
(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