diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-06 17:41:27 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-06 17:41:27 +0300 |
commit | 79447034e393dc5c7f01f3ec0ca1de7ded4f15e6 (patch) | |
tree | 46bbea289a44003181fbe1042b0d4b650d6b39ee /scm | |
parent | c598bc4dee28a9480ca9b7e9d5a20d75a5baccda (diff) | |
download | ellinika-79447034e393dc5c7f01f3ec0ca1de7ded4f15e6.tar.gz ellinika-79447034e393dc5c7f01f3ec0ca1de7ded4f15e6.tar.bz2 |
* scm/conjugator.scm: Remove calls to force-elstr, unless absolutely
necessary.
Diffstat (limited to 'scm')
-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) |