diff options
-rw-r--r-- | cgi-bin/dict.cgi.in | 29 |
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) |