path: root/src/ellinika
authorSergey Poznyakoff <>2010-06-27 19:39:25 (GMT)
committer Sergey Poznyakoff <>2010-06-27 19:39:25 (GMT)
commit7ef0d2646c62493211c2bda9970591abf5a2b1cd (patch) (side-by-side diff)
tree3e2e6bf9fb242a0dfff2a1f1428b5fda3e03c64c /src/ellinika
parent8eac1de04ecdfac95506819288feffd777b229ce (diff)
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
Diffstat (limited to 'src/ellinika') (more/less context) (ignore whitespace changes)
1 files changed, 3 insertions, 2 deletions
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)
(dbh:conn dbh)

Return to:

Send suggestions and report system problems to the System administrator.