159/197: installer: Fix i18n in dialogs.

[Danny Milosavljevic]

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit 989639fafa052d003fcb83fec0ed573eb356e5f7
Author: John Darrington <address@hidden>
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)