diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2015-01-10 09:27:21 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2015-01-10 09:27:21 +0200 |
commit | 2b99881a880d101ae32a94b3d1e0a792224cb74c (patch) | |
tree | bb5145ebea295ff16b9ebfdb8a4f7d8a5a0a592e /src/ellinika/i18n.scm | |
parent | 5dfd8dd432785ca8d8b6d2c11bac9e110feda52b (diff) | |
download | ellinika-2b99881a880d101ae32a94b3d1e0a792224cb74c.tar.gz ellinika-2b99881a880d101ae32a94b3d1e0a792224cb74c.tar.bz2 |
Switch to guile-www-2.38
* am/guile.m4: Remove.
* Makefile.am (install-html): Fix generation of symlinks
* configure.ac: Fall back to info prefix, if guile-config info bindir
returns empty string.
* data/db.struct: Minor change
* data/pl/Makefile.am: Add missing silent rule markers
* data/ru/Makefile.am: Likewise.
* scm/dictrans.scm: Call setlocale.
* scm/neatrans.scm: Likewise.
* scm/verbop.scm: Likewise.
* src/cgi-bin/conj.scm4: Call setlocale.
Use cgi:value-u8 instead of cgi:value-u8.
* src/cgi-bin/dict.scm4: Likewise.
* src/cgi-bin/nea.scm4: Likewise.
* src/ellinika/cgi.scm4 (cgi-script-name)
(cgi-server-hostname,cgi-server-protocol-name)
(cgi-server-protocol-version): Define in CGI mode.
(cgi:value-u8): New public function.
* src/ellinika/i18n.scm: Conditionally use syncase.
Diffstat (limited to 'src/ellinika/i18n.scm')
-rw-r--r-- | src/ellinika/i18n.scm | 6 |
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,4 +1,4 @@ | |||
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 |
@@ -16,8 +16,10 @@ | |||
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 () |