aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/ellinika/dico.scm10
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
@@ -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))))

Return to:

Send suggestions and report system problems to the System administrator.