diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-04-21 11:53:06 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-04-21 11:53:06 +0200 |
commit | 238328c9901267ef32a8cd6edba1692ee4a4f1a5 (patch) | |
tree | 3bfc71518161cc7fa54fcdfea3433cc84762f490 | |
parent | fcdf58c46ceca31145ae817b7dee820ecf864b8f (diff) | |
download | gnu-guix-238328c9901267ef32a8cd6edba1692ee4a4f1a5.tar gnu-guix-238328c9901267ef32a8cd6edba1692ee4a4f1a5.tar.gz |
ui: Move definition of `install-locale' after that of the `warning' macro.
* guix/ui.scm (install-locale): Move definition after that of `warning'.
-rw-r--r-- | guix/ui.scm | 18 |
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 () |