dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 989639fafa052d003fcb83fec0ed573eb356e5f7
Author: John Darrington <[email protected]>
Date: Tue Jan 31 11:13:32 2017 +0100
installer: Fix i18n in dialogs.
* gnu/system/installer/dialog.scm (dialog-page-init): Call gettext on
the message to be displayed.
---
gnu/system/installer/dialog.scm | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/gnu/system/installer/dialog.scm b/gnu/system/installer/dialog.scm
index 47fbba1..30584fa 100644
--- a/gnu/system/installer/dialog.scm
+++ b/gnu/system/installer/dialog.scm
@@ -87,10 +87,8 @@
(let ((m (page-datum p 'message))
(justify (page-datum p 'justify)))
(if justify
- (addstr* text-window
- (if (promise? m) (force m) m))
- (addstr text-window
- (if (promise? m) (force m) m))))
+ (addstr* text-window (gettext m))
+ (addstr text-window (gettext m))))
(push-cursor (page-cursor-visibility p))
(page-set-wwin! p frame)
