1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-14 11:00:36 +02:00

installer: Use dynamic-wind to setup installer.

* gnu/installer.scm (installer-program): Use dynamic-wind, so that
completely uncaught exceptions can be printed properly.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Josselin Poiret 2022-01-15 14:50:09 +01:00 committed by Mathieu Othacehe
parent 7cbd95a9f6
commit 41eb0f01fc
No known key found for this signature in database
GPG key ID: 8354763531769CA6

View file

@ -416,8 +416,9 @@ selected keymap."
(define current-installer newt-installer) (define current-installer newt-installer)
(define steps (#$steps current-installer)) (define steps (#$steps current-installer))
((installer-init current-installer)) (dynamic-wind
(installer-init current-installer)
(lambda ()
(parameterize (parameterize
((run-command-in-installer ((run-command-in-installer
(installer-run-command current-installer))) (installer-run-command current-installer)))
@ -458,9 +459,9 @@ selected keymap."
dump-archive))) dump-archive)))
((installer-exit-error current-installer) ((installer-exit-error current-installer)
error-file report key args))) error-file report key args)))
(primitive-exit 1)))) (primitive-exit 1)))))
((installer-exit current-installer)))))) (installer-exit current-installer))))))
(program-file (program-file
"installer" "installer"