diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2008-06-16 08:00:29 +0000 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2008-06-16 08:00:29 +0000 |
| commit | 6e98b8f92a9d5caf494472c8e715b94a71c6c95c (patch) | |
| tree | 72997e9f48ec797b312ab88596640e901bbee86a | |
| parent | 4d3f608787f13ece934890bd9341c9a24d563f85 (diff) | |
| download | ellinika-6e98b8f92a9d5caf494472c8e715b94a71c6c95c.tar.gz ellinika-6e98b8f92a9d5caf494472c8e715b94a71c6c95c.tar.bz2 | |
(dico-ellinika-init): New function.
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@515 941c8c0f-9102-463b-b60b-cd22ce0e6858
| -rw-r--r-- | cgi-bin/dico-ellinika.scm4 | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/cgi-bin/dico-ellinika.scm4 b/cgi-bin/dico-ellinika.scm4 index 763cee1..befc7e5 100644 --- a/cgi-bin/dico-ellinika.scm4 +++ b/cgi-bin/dico-ellinika.scm4 @@ -322,9 +322,19 @@ Invariant Sections, no Front-Cover and Back-Cover Texts")) (define (result-count res) (length (cdr res))) +(define (dico-ellinika-init arg) + (list (cons "open" open-module) + (cons "close" close-module) + (cons "descr" descr) + (cons "info" info) + (cons "define" define-word) + (cons "match" match-word) + (cons "output" output) + (cons "result-count" result-count))) + ;; ;; Setup (ellinika-config-setup) -
\ No newline at end of file + |