10/18: installer: Fix i18n in dialogs.

[John Darrington]

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

commit 6da8d8cbd1ada26b338d70cee33318c0fe7848a6
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)