From 238328c9901267ef32a8cd6edba1692ee4a4f1a5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 21 Apr 2013 11:53:06 +0200
Subject: [PATCH] ui: Move definition of `install-locale' after that of the
`warning' macro.
* guix/ui.scm (install-locale): Move definition after that of `warning'.
---
guix/ui.scm | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/guix/ui.scm b/guix/ui.scm
index e42c331ed6a..778711be924 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -65,15 +65,6 @@ (define %gettext-domain
(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 @@ (define-syntax-rule (leave args ...)
(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 ()
--
GitLab