From 9be3f798a55ae3b5db89ee9439ce2a14664b8b25 Mon Sep 17 00:00:00 2001 From: Sergey Poznyakoff Date: Sun, 16 Sep 2018 22:37:58 +0300 Subject: Upgrade gint --- scm/dictrans.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'scm/dictrans.scm') 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") -- cgit v1.2.1