diff options
Diffstat (limited to 'src/cgi-bin/conj.scm4')
-rw-r--r-- | src/cgi-bin/conj.scm4 | 3 |
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 | |||
@@ -328,6 +328,8 @@ ifelse(IFACE,[CGI],(cgi:init)) | |||
328 | (cond | 328 | (cond |
329 | ((null? result) | 329 | ((null? result) |
330 | (search-failure key)) | 330 | (search-failure key)) |
331 | ((= (length result) 1) | ||
332 | (show-conjugation (caar result))) | ||
331 | (else | 333 | (else |
332 | (format #t | 334 | (format #t |
333 | "<div class=\"error\"><p>~A</p></div>" | 335 | "<div class=\"error\"><p>~A</p></div>" |
@@ -407,6 +409,7 @@ ifelse(IFACE,[CGI],(cgi:init)) | |||
407 | (cgi:names)))) | 409 | (cgi:names)))) |
408 | (cons "@@conj@@" | 410 | (cons "@@conj@@" |
409 | (lambda () | 411 | (lambda () |
412 | (format #t "<!-- ~A -->" (environ)) | ||
410 | (dict-connect) | 413 | (dict-connect) |
411 | (main-form) | 414 | (main-form) |
412 | (do-conj) | 415 | (do-conj) |