diff options
-rw-r--r-- | scm/conjugator.scm | 8 |
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) |