diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2018-09-16 22:37:58 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2018-09-16 22:37:58 +0300 |
commit | 9be3f798a55ae3b5db89ee9439ce2a14664b8b25 (patch) | |
tree | 4bffbb1543d53d0000c0d1c2ddd51574555fd6eb /scm | |
parent | 3c71deb63229da1bf3e75470499048bdce378966 (diff) | |
download | ellinika-9be3f798a55ae3b5db89ee9439ce2a14664b8b25.tar.gz ellinika-9be3f798a55ae3b5db89ee9439ce2a14664b8b25.tar.bz2 |
Upgrade gint
Diffstat (limited to 'scm')
-rw-r--r-- | scm/dictrans.scm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm index 9f1cfd5..9e6051e 100644 --- a/scm/dictrans.scm +++ b/scm/dictrans.scm @@ -90,9 +90,6 @@ (ellinika xlat) (ice-9 getopt-long)) -(if (= (string->number (major-version)) 1) - (use-modules (ice-9 syncase))) - (setlocale LC_ALL "") (define compile-only #f) @@ -330,7 +327,7 @@ rest) (xmltrans:parse-error #f tag " used in wrong context"))))) -;;; Hanlde main element +;;; Handle main element (xmltrans:start-tag "DICT" (tag attr) @@ -416,7 +413,7 @@ "T" (tag attr text) (cond - ((not (xmltrans:attr attr "ID"))) ;; Ignore. Warnings has already been issued + ((not (xmltrans:attr attr "ID"))) ;; Ignore. Warning has already been issued ((xmltrans:parent? "P") (current-article-set #:topic (xmltrans:attr attr "ID"))) ((xmltrans:parent? "NODE") |