diff options
| -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 () |