summaryrefslogtreecommitdiffabout
Side-by-side diff
Diffstat (more/less context) (show whitespace changes)
-rw-r--r--ellinika/i18n.scm7
-rw-r--r--xml/lingua.conf.in2
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>

Return to:

Send suggestions and report system problems to the System administrator.