~ruther/guix-local

5e17ae7fbd38917264627701b73e7f38061402f0 — Tobias Geerinckx-Rice 6 years ago e1f3788
installer: Rename RUN-PARTIONING-PAGE.

* gnu/installer/newt/partition.scm (run-partioning-page): Rename to
run-partitioning-page.  Adjust all callers.
2 files changed, 3 insertions(+), 3 deletions(-)

M gnu/installer/newt.scm
M gnu/installer/newt/partition.scm
M gnu/installer/newt.scm => gnu/installer/newt.scm +1 -1
@@ 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))

M gnu/installer/newt/partition.scm => gnu/installer/newt/partition.scm +2 -2
@@ 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