diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-06-27 20:07:19 +0000 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-06-27 20:07:19 +0000 |
| commit | 01f3ae722c6dda2dad25254e38f7dd7aac9acbf6 (patch) | |
| tree | 7d303e2fe83360813c60ae4772a9a67affd871f4 /src | |
| parent | 7ef0d2646c62493211c2bda9970591abf5a2b1cd (diff) | |
| download | ellinika-01f3ae722c6dda2dad25254e38f7dd7aac9acbf6.tar.gz ellinika-01f3ae722c6dda2dad25254e38f7dd7aac9acbf6.tar.bz2 | |
More fixed to accomodate Dico 2.0.90
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@551 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'src')
| -rw-r--r-- | src/ellinika/dico.scm | 10 |
1 files changed, 5 insertions, 5 deletions
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 @@ -246,3 +246,3 @@ Invariant Sections, no Front-Cover and Back-Cover Texts")) (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 @@ -285,3 +285,3 @@ Invariant Sections, no Front-Cover and Back-Cover Texts")) -(define (match-word dbh strat word) +(define (match-word dbh strat key) (let ((sp (assoc (dico-strat-name strat) strategy-list))) @@ -289,7 +289,7 @@ Invariant Sections, no Front-Cover and Back-Cover Texts")) (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 |