aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--cgi-bin/dict.cgi.in29
1 files changed, 16 insertions, 13 deletions
diff --git a/cgi-bin/dict.cgi.in b/cgi-bin/dict.cgi.in
index a484a10..510ceba 100644
--- a/cgi-bin/dict.cgi.in
+++ b/cgi-bin/dict.cgi.in
@@ -85,20 +85,23 @@
string-append
(cons
dict-cgi-path
- (cons "?"
- (let ((lang (cgi:value "LANG")))
- (do ((ilist (if lang
- (cons "LANG" (cons lang rest))
- rest) (cdr ilist))
- (i 1 (1+ i))
- (olist '()))
- ((null? ilist) (if (null? olist) olist (reverse (cdr olist))))
- (set! olist (cons (car ilist) olist))
- (set! olist (cons
- (if (odd? i) "=" "&")
- olist))))))))
+ (let ((arglist (let ((lang (cgi:value "LANG")))
+ (do ((ilist (if lang
+ (cons "LANG" (cons lang rest))
+ rest) (cdr ilist))
+ (i 1 (1+ i))
+ (olist '()))
+ ((null? ilist) (if (null? olist)
+ olist
+ (reverse (cdr olist))))
+ (set! olist (cons (car ilist) olist))
+ (set! olist (cons
+ (if (odd? i) "=" "&")
+ olist))))))
+ (if (null? arglist)
+ arglist
+ (cons "?" arglist))))))
-
;; Τα μέρη του λογου
(define part-of-speech
(list (cons "κανένα μέρος του λογου" #f)

Return to:

Send suggestions and report system problems to the System administrator.