From 7d567af46b4e10ffafb1d0f76b524f5781460598 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 15 May 2019 00:47:18 +0200 Subject: installer: Mount ESP once only. Fixes . * gnu/installer/newt/partition.scm (run-partioning-page)[run-page]: Introduce 'initial-partitions' variable. Previously we'd call 'disk-partitions' after 'auto-partition' had done its job of creating new partitions, and thus its result would contain the just-created partitions. Consequently, 'create-special-user-partitions' would return the ESP partition we just created, and thus it would appear twice in the list. --- gnu/installer/newt/partition.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gnu/installer/newt/partition.scm') diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm index 7f1fb4de15..2960adcf06 100644 --- a/gnu/installer/newt/partition.scm +++ b/gnu/installer/newt/partition.scm @@ -751,11 +751,12 @@ by pressing the Exit button.~%~%"))) (disk (mklabel device label))) (disk-commit disk) disk))) + (initial-partitions (disk-partitions disk)) (scheme (symbol-append method '- (run-scheme-page))) (user-partitions (append (auto-partition disk #:scheme scheme) (create-special-user-partitions - (disk-partitions disk))))) + initial-partitions)))) (run-disk-page (list disk) user-partitions #:guided? #t))) ((eq? method 'manual) -- cgit 1.4.1