From b6bbb4f2cf0144aa58701cd2b46277838743a277 Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Mon, 20 Jun 2011 17:06:59 +0300
Subject: 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.
---
 src/cgi-bin/conj.scm4 | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/cgi-bin/conj.scm4')

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
@@ -328,6 +328,8 @@ ifelse(IFACE,[CGI],(cgi:init))
     (cond
      ((null? result)
       (search-failure key))
+     ((= (length result) 1)
+      (show-conjugation (caar result)))
      (else
       (format #t
 	      "<div class=\"error\"><p>~A</p></div>"
@@ -407,6 +409,7 @@ ifelse(IFACE,[CGI],(cgi:init))
 			    (cgi:names))))
 		   (cons "@@conj@@"
 			 (lambda ()
+			   (format #t "<!-- ~A -->" (environ))
 			   (dict-connect)
 			   (main-form)
 			   (do-conj)
-- 
cgit v1.2.1