aboutsummaryrefslogtreecommitdiff
path: root/scm/conjugator.scm
diff options
context:
space:
mode:
Diffstat (limited to 'scm/conjugator.scm')
-rw-r--r--scm/conjugator.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/scm/conjugator.scm b/scm/conjugator.scm
index 4f1eccd..ceda52a 100644
--- a/scm/conjugator.scm
+++ b/scm/conjugator.scm
@@ -93,9 +93,9 @@ WHERE verb='" (force-string verb) "'"
(list-ref x 3)
#f
'(class))))
- ((elstr-suffix? (force-elstr verb) "άω")
+ ((elstr-suffix? verb "άω")
(get-verb-info (elstr-append
- (elstr-trim (force-elstr verb) -2) "ώ") "B1"))
+ (elstr-trim verb -2) "ώ") "B1"))
(else
(guess-verb-info verb))))))
@@ -314,9 +314,9 @@ WHERE c.conj='" conj "' AND c.voice='" voice "' AND c.mode='" mode
flect))
((char=? acc #\s)
(elstr-append
- (elstr-deaccent (force-elstr root))
+ (elstr-deaccent root)
suffix
- (elstr-deaccent (force-elstr flect))))
+ (elstr-deaccent flect)))
((char=? acc #\-)
#f)
((char-numeric? acc)

Return to:

Send suggestions and report system problems to the System administrator.