aboutsummaryrefslogtreecommitdiff
path: root/src/ellinika/i18n.scm
diff options
context:
space:
mode:
Diffstat (limited to 'src/ellinika/i18n.scm')
-rw-r--r--src/ellinika/i18n.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/ellinika/i18n.scm b/src/ellinika/i18n.scm
index c05d727..40cb47d 100644
--- a/src/ellinika/i18n.scm
+++ b/src/ellinika/i18n.scm
@@ -1,5 +1,5 @@
1;;;; This file is part of Greek Dictionary Web Engine 1;;;; This file is part of Greek Dictionary Web Engine
2;;;; Copyright (C) 2006, 2007 Sergey Poznyakoff 2;;;; Copyright (C) 2006, 2007, 2015 Sergey Poznyakoff
3;;;; 3;;;;
4;;;; This program is free software; you can redistribute it and/or modify 4;;;; This program is free software; you can redistribute it and/or modify
5;;;; it under the terms of the GNU General Public License as published by 5;;;; it under the terms of the GNU General Public License as published by
@@ -15,10 +15,12 @@
15;;;; along with this program. If not, see <http://www.gnu.org/licenses/>. 15;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
16 16
17(define-module (ellinika i18n) 17(define-module (ellinika i18n)
18 #:use-syntax (ice-9 syncase)
19 #:export-syntax (_) 18 #:export-syntax (_)
20 #:export (locale-setup)) 19 #:export (locale-setup))
21 20
21(if (= (string->number (major-version)) 1)
22 (use-modules (ice-9 syncase)))
23
22(define-syntax _ 24(define-syntax _
23 (syntax-rules () 25 (syntax-rules ()
24 ((_ msg) (gettext msg)))) 26 ((_ msg) (gettext msg))))

Return to:

Send suggestions and report system problems to the System administrator.