diff options
-rw-r--r-- | ellinika/i18n.scm | 7 | ||||
-rw-r--r-- | xml/lingua.conf.in | 2 |
2 files changed, 7 insertions, 2 deletions
diff --git a/ellinika/i18n.scm b/ellinika/i18n.scm index e8a0065..8d9617a 100644 --- a/ellinika/i18n.scm +++ b/ellinika/i18n.scm @@ -256,6 +256,8 @@ #f))) (define (locale-setup lang domain-name locale-path) + (catch 'system-error + (lambda () (cond ((not lang) (setenv "LC_ALL" "C") @@ -281,7 +283,8 @@ (set! sublocale curlocale) (set! terr "XX"))) ; Hack for languages without defined territory. - (let ((domaindir (supported-locale-dir sublocale domain-name locale-path))) + (let ((domaindir + (supported-locale-dir sublocale domain-name locale-path))) (cond (domaindir (let ((locale (string-append curlocale "_" terr ".UTF-8"))) @@ -293,6 +296,8 @@ ((setenv "LC_ALL" "C") (setlocale LC_ALL "C") #f))))))) + (lambda args + #f))) diff --git a/xml/lingua.conf.in b/xml/lingua.conf.in index 9b8af6e..b6b7073 100644 --- a/xml/lingua.conf.in +++ b/xml/lingua.conf.in @@ -69,7 +69,7 @@ '(("pl" . "Polski") ("ru" . "Русский") ("uk" . "Українська")))) - (display "</li></ul></ul>"))) + (display "</ul></li></ul>"))) #f ]]> </GUILE> |