me
/
guix
Archived
1
0
Fork 0
Code

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>
master
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
1 changed files with 44 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/installer.scm
View File

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