diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2007-12-26 21:57:58 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2007-12-26 21:57:58 +0000 |
commit | c8bbe96877d8ee06dfa04527a432a4b75c3d8786 (patch) | |
tree | 2a4f0705981021994655597facf40b40792cce5d | |
parent | 8454a8f8613ecdd0a5cc4f38d12c90aee5d6e86d (diff) | |
download | ellinika-c8bbe96877d8ee06dfa04527a432a4b75c3d8786.tar.gz ellinika-c8bbe96877d8ee06dfa04527a432a4b75c3d8786.tar.bz2 |
* cgi-bin/dict.scm4 (fuzzy-search): Use quotient.
* cgi-bin/nea.scm4: Use ice-9 rdelim.
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@503 941c8c0f-9102-463b-b60b-cd22ce0e6858
-rw-r--r-- | ChangeLog | 3 | ||||
-rw-r--r-- | cgi-bin/dict.scm4 | 2 | ||||
-rw-r--r-- | cgi-bin/nea.scm4 | 1 |
3 files changed, 5 insertions, 1 deletions
@@ -1,5 +1,8 @@ 2007-12-26 Sergey Poznyakoff <gray@gnu.org.ua> + * cgi-bin/dict.scm4 (fuzzy-search): Use quotient. + * cgi-bin/nea.scm4: Use ice-9 rdelim. + * xml/uk/oysiastika.xml, xml/uk/epitheta.xml: Update. 2007-10-11 Sergey Poznyakoff <gray@gnu.org.ua> diff --git a/cgi-bin/dict.scm4 b/cgi-bin/dict.scm4 index d65074f..9448b62 100644 --- a/cgi-bin/dict.scm4 +++ b/cgi-bin/dict.scm4 @@ -460,7 +460,7 @@ ifelse(IFACE,[CGI],(cgi:init)) (else (display "<table width=\"100%\" class=\"noframe\">") (let* ((result-length (length result)) - (lim (1+ (inexact->exact (/ result-length match-list-columns))))) + (lim (1+ (quotient result-length match-list-columns)))) (do ((i 0 (1+ i))) ((= i lim) #f) (display "<tr>") diff --git a/cgi-bin/nea.scm4 b/cgi-bin/nea.scm4 index 2f9dfcd..e490a59 100644 --- a/cgi-bin/nea.scm4 +++ b/cgi-bin/nea.scm4 @@ -19,6 +19,7 @@ (set! %load-path (cons "GUILE_SITE" %load-path)) (use-modules ifelse(IFACE,[CGI],(www cgi),(guile-user)) + (ice-9 rdelim) (gamma sql) (gamma gettext) (xmltools dict) |