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:
parent
7cbd95a9f6
commit
41eb0f01fc
1 changed files with 44 additions and 43 deletions
|
@ -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"
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue