From 7ef0d2646c62493211c2bda9970591abf5a2b1cd Mon Sep 17 00:00:00 2001 From: Sergey Poznyakoff Date: Sun, 27 Jun 2010 19:39:25 +0000 Subject: Changes in Scheme. * src/ellinika/dico.scm (match-selector): Update to work with Dico 2.0.90 * src/cgi-bin/nea.scm4: Use (ellinika i18n git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@550 941c8c0f-9102-463b-b60b-cd22ce0e6858 --- src/ellinika/dico.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/ellinika') diff --git a/src/ellinika/dico.scm b/src/ellinika/dico.scm index f9a6f63..90302df 100644 --- a/src/ellinika/dico.scm +++ b/src/ellinika/dico.scm @@ -243,11 +243,12 @@ Invariant Sections, no Front-Cover and Back-Cover Texts")) (cdr slist))))))) (define (match-selector dbh strat key) - (let* ((sound (ellinika:sounds-like key)) + (let* ((key (dico-make-key strat (dico-key->word key))) + (sound (ellinika:sounds-like (dico-key->word key))) (dlist (mapcan (lambda (elt) (let ((word (car elt))) - (and (dico-strat-select? strat word sound) + (and (dico-strat-select? strat word key) word))) (my-sql-query (dbh:conn dbh) -- cgit v1.2.1