From 01f3ae722c6dda2dad25254e38f7dd7aac9acbf6 Mon Sep 17 00:00:00 2001 From: Sergey Poznyakoff Date: Sun, 27 Jun 2010 20:07:19 +0000 Subject: More fixed to accomodate Dico 2.0.90 git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@551 941c8c0f-9102-463b-b60b-cd22ce0e6858 --- src/ellinika/dico.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/ellinika') diff --git a/src/ellinika/dico.scm b/src/ellinika/dico.scm index 90302df..298dcea 100644 --- a/src/ellinika/dico.scm +++ b/src/ellinika/dico.scm @@ -244,7 +244,7 @@ Invariant Sections, no Front-Cover and Back-Cover Texts")) (define (match-selector dbh strat key) (let* ((key (dico-make-key strat (dico-key->word key))) - (sound (ellinika:sounds-like (dico-key->word key))) + (sound (ellinika:sounds-like (dico-key->word key))) (dlist (mapcan (lambda (elt) (let ((word (car elt))) @@ -283,15 +283,15 @@ Invariant Sections, no Front-Cover and Back-Cover Texts")) (cons "suffix" match-suffix) (cons "re" match-extnd-regex))) -(define (match-word dbh strat word) +(define (match-word dbh strat key) (let ((sp (assoc (dico-strat-name strat) strategy-list))) (let ((res (cond (sp - ((cdr sp) dbh strat word)) + ((cdr sp) dbh strat (dico-key->word key))) ((dico-strat-selector? strat) - (match-selector dbh strat word)) + (match-selector dbh strat key)) (else - (match-default dbh strat word))))) + (match-default dbh strat (dico-key->word key)))))) (if res (cons #f (map car res)) #f)))) -- cgit v1.2.1