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 @@ -253,12 +253,14 @@ (access? (string-append name ".gmo") R_OK)) (return dir)))) (string-split locale-path #\:)) #f))) (define (locale-setup lang domain-name locale-path) + (catch 'system-error + (lambda () (cond ((not lang) (setenv "LC_ALL" "C") (setlocale LC_ALL "C") #f) (else @@ -278,22 +280,25 @@ (set! sublocale curlocale) (set! terr elt))) (else (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"))) (setenv "LC_ALL" locale) (setlocale LC_ALL locale) (textdomain domain-name) (bindtextdomain domain-name domaindir) locale)) ((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 @@ -66,13 +66,13 @@ (car lang) rest (cdr lang)))))) '(("pl" . "Polski") ("ru" . "Русский") ("uk" . "Українська")))) - (display "</li></ul></ul>"))) + (display "</ul></li></ul>"))) #f ]]> </GUILE> </CONFIG> <!-- Local Variables: --> |