installer: Mount ESP once only.
Fixes <https://bugs.gnu.org/35731>. * 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.master
parent
36f5d78d4a
commit
7d567af46b
|
@ -751,11 +751,12 @@ by pressing the Exit button.~%~%")))
|
||||||
(disk (mklabel device label)))
|
(disk (mklabel device label)))
|
||||||
(disk-commit disk)
|
(disk-commit disk)
|
||||||
disk)))
|
disk)))
|
||||||
|
(initial-partitions (disk-partitions disk))
|
||||||
(scheme (symbol-append method '- (run-scheme-page)))
|
(scheme (symbol-append method '- (run-scheme-page)))
|
||||||
(user-partitions (append
|
(user-partitions (append
|
||||||
(auto-partition disk #:scheme scheme)
|
(auto-partition disk #:scheme scheme)
|
||||||
(create-special-user-partitions
|
(create-special-user-partitions
|
||||||
(disk-partitions disk)))))
|
initial-partitions))))
|
||||||
(run-disk-page (list disk) user-partitions
|
(run-disk-page (list disk) user-partitions
|
||||||
#:guided? #t)))
|
#:guided? #t)))
|
||||||
((eq? method 'manual)
|
((eq? method 'manual)
|
||||||
|
|
Loading…
Reference in New Issue