diff --git a/gnu/installer.scm b/gnu/installer.scm index ea7bd1c932..1452c4dc7e 100644 --- a/gnu/installer.scm +++ b/gnu/installer.scm @@ -337,6 +337,8 @@ (define installer-builder (gnu services herd) (guix i18n) (guix build utils) + ((system repl debug) + #:select (terminal-width)) (ice-9 match)) ;; Initialize gettext support so that installers can use @@ -360,6 +362,11 @@ (define installer-builder (bindtextdomain "xkeyboard-config" #+(file-append xkeyboard-config "/share/locale")) + ;; Initialize 'terminal-width' in (system repl debug) + ;; to a large-enough value to make backtrace more + ;; verbose. + (terminal-width 200) + (let* ((current-installer newt-installer) (steps (#$steps current-installer))) ((installer-init current-installer))