From 238328c9901267ef32a8cd6edba1692ee4a4f1a5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= 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 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 ()