Allow for alternative stems in a same tense.

* data/irregular-verbs.xml: Add alternative passive aorist stem
for "lev".
* scm/verbop.scm (conjugation-set): When setting #:root,
keep a list of alternative stems.
(flush-mood): Update for changes in #:root storage.
* src/cgi-bin/conj.scm4 (show-best-matches): If only one
match is produced, show it immediately.
* src/ellinika/conjugator.scm: Allow for multiple stems.
* src/ellinika/sql.scm (->string): Bugfix.

1 files changed, 3 insertions, 0 deletions

diff --git a/src/cgi-bin/conj.scm4 b/src/cgi-bin/conj.scm4
index fec7eca..8c5e317 100644
--- a/src/cgi-bin/conj.scm4
+++ b/src/cgi-bin/conj.scm4
@@ -325,12 +325,14 @@ ifelse(IFACE,[CGI],(cgi:init))
  WHERE sound LIKE ~Q\
  AND (pos & 1048576) <> 0 ORDER BY 1"
                  (ellinika:sounds-like key))))
     (cond
      ((null? result)
       (search-failure key))
+     ((= (length result) 1)
+      (show-conjugation (caar result)))
      (else
       (format #t
               "<div class=\"error\"><p>~A</p></div>"
               (_ "Στην λέξη εισαγωγής δεν υπάρχει τόνος. Μήπος θέλατε να κλίσετε ένα απ'αυτά τα ρήματα:")) 
       (display "<table width=\"100%\" class=\"noframe\">")
       (let* ((result-length (length result))
@@ -404,12 +406,13 @@ ifelse(IFACE,[CGI],(cgi:init))
                                          (display name)
                                          (display "=")
                                          (display v)))))))
                             (cgi:names))))
                    (cons "@@conj@@"
                          (lambda ()
+                           (format #t "<!-- ~A -->" (environ))
                            (dict-connect)
                            (main-form)
                            (do-conj)
                            (if (not (null? unattested))
                                (footnotes)))))))