summaryrefslogtreecommitdiffabout
authorSergey Poznyakoff <gray@gnu.org.ua>2011-06-06 14:41:27 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2011-06-06 14:41:27 (GMT)
commit79447034e393dc5c7f01f3ec0ca1de7ded4f15e6 (patch) (side-by-side diff)
tree46bbea289a44003181fbe1042b0d4b650d6b39ee
parentc598bc4dee28a9480ca9b7e9d5a20d75a5baccda (diff)
downloadellinika-79447034e393dc5c7f01f3ec0ca1de7ded4f15e6.tar.gz
ellinika-79447034e393dc5c7f01f3ec0ca1de7ded4f15e6.tar.bz2
* scm/conjugator.scm: Remove calls to force-elstr, unless absolutely
necessary.
Diffstat (more/less context) (ignore whitespace changes)
-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.