aboutsummaryrefslogtreecommitdiff
path: root/src/ellinika
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2011-06-15 17:30:48 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2011-06-15 17:30:48 +0300
commitd688c9630db459ec13e5311adaee05e651b3789d (patch)
tree760cad87ebfec5b42344cbd635e90b12c9f2e2fa /src/ellinika
parent516f479a1ddb3bb783a01e9ffb20ba051243ffd0 (diff)
downloadellinika-d688c9630db459ec13e5311adaee05e651b3789d.tar.gz
ellinika-d688c9630db459ec13e5311adaee05e651b3789d.tar.bz2
Minor changes
* src/cgi-bin/conj.scm4: Mark unattested stems and verb classes. * src/ellinika/conjugator.scm (conjugate): Fix empty conjugation return. * xml/pl/rhmata.xml: Update.
Diffstat (limited to 'src/ellinika')
-rw-r--r--src/ellinika/conjugator.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ellinika/conjugator.scm b/src/ellinika/conjugator.scm
index 8172686..069d641 100644
--- a/src/ellinika/conjugator.scm
+++ b/src/ellinika/conjugator.scm
@@ -458,13 +458,13 @@ AND i.tense=\"~A\" AND i.ident=f.ident"
(list res)))
(else
(let* ((vinfo (load-verb-info verb voice mood tense))
(conj-list (get-conj-info (verb-get vinfo #:conj)
voice mood tense)))
(if (not conj-list)
- (list (list #f #f #f #f #f #f) #f #f)
+ (list (list #f #f #f #f #f #f #f #f))
(map car
(fold-right
(lambda (elt prev)
; (format #t "ELT ~A~%" elt)
(if (null? prev)
(list elt)

Return to:

Send suggestions and report system problems to the System administrator.