diff options
Diffstat (limited to 'src/ellinika/test-conjugation.scm')
-rw-r--r-- | src/ellinika/test-conjugation.scm | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/src/ellinika/test-conjugation.scm b/src/ellinika/test-conjugation.scm index 055138b..1504553 100644 --- a/src/ellinika/test-conjugation.scm +++ b/src/ellinika/test-conjugation.scm @@ -27,20 +27,12 @@ (ellinika-cgi-init dict-template-file-name) (ellinika:sql-connect ellinika-sql-connection) -(define transtab - '(("act" . "Ενεργητηκή φωνή") - ("pas" . "Μεσοπαθητική φωνή") - ("ind" . "Οριστική") - ("sub" . "Υποτακτική") - ("imp" . "Προστακτική"))) - -(define (term x) - (or (assoc-ref transtab x) x)) - (define-public (test-conjugation:tense verb voice mood tense) (for-each (lambda (result) - (format #t "~A ~A/~A/~A: " verb (term voice) (term mood) tense) + (format #t "~A ~A/~A/~A: " verb + (ellinika-conjugation-term voice) + (ellinika-conjugation-term mood) tense) (let ((conj (conjugation:table result))) (cond ((empty-conjugation? conj) |