summaryrefslogtreecommitdiff
path: root/guix/ui.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-04-21 11:53:06 +0200
committerLudovic Courtès <ludo@gnu.org>2013-04-21 11:53:06 +0200
commit238328c9901267ef32a8cd6edba1692ee4a4f1a5 (patch)
tree3bfc71518161cc7fa54fcdfea3433cc84762f490 /guix/ui.scm
parentfcdf58c46ceca31145ae817b7dee820ecf864b8f (diff)
ui: Move definition of `install-locale' after that of the `warning' macro.
* guix/ui.scm (install-locale): Move definition after that of `warning'.
Diffstat (limited to 'guix/ui.scm')
-rw-r--r--guix/ui.scm18
1 files changed, 9 insertions, 9 deletions
diff --git a/guix/ui.scm b/guix/ui.scm
index e42c331ed6..778711be92 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -65,15 +65,6 @@
(define _ (cut gettext <> %gettext-domain))
(define N_ (cut ngettext <> <> <> %gettext-domain))
-(define (install-locale)
- "Install the current locale settings."
- (catch 'system-error
- (lambda _
- (setlocale LC_ALL ""))
- (lambda args
- (warning (_ "failed to install locale: ~a~%")
- (strerror (system-error-errno args))))))
-
(define (initialize-guix)
"Perform the usual initialization for stand-alone Guix commands."
(install-locale)
@@ -405,6 +396,15 @@ messages."
(report-error args ...)
(exit 1)))
+(define (install-locale)
+ "Install the current locale settings."
+ (catch 'system-error
+ (lambda _
+ (setlocale LC_ALL ""))
+ (lambda args
+ (warning (_ "failed to install locale: ~a~%")
+ (strerror (system-error-errno args))))))
+
(define (guix-main arg0 . args)
(initialize-guix)
(let ()