picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit dca010336c18fb3d00d2c378c57b642276368673
parent dc4f87fc1a0bf6debe43233630ece09d4e0c793a
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 23 Jun 2011 11:37:48 +0200

Minor change in access priority
Diffstat:
Mlib/http.l | 8++++----
1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/http.l b/lib/http.l @@ -1,4 +1,4 @@ -# 13may11abu +# 23jun11abu # (c) Software Lab. Alexander Burger # *Home *Gate *Host *Port *Port1 *Port% *Http1 *Chunked @@ -220,12 +220,12 @@ ((tail '("." "l") @U) (and *SesId (timeout *Timeout)) (apply script L *Url) ) - ((assoc (stem @U ".") *Mimes) - (apply httpEcho (cdr @) *Url) ) ((=T (car (info *Url))) - (if (info (setq *Url (pack *Url "default"))) + (if (info (setq *Url (pack *Url "/default"))) (apply script L *Url) (http404) ) ) + ((assoc (stem @U ".") *Mimes) + (apply httpEcho (cdr @) *Url) ) (T (httpEcho *Url "application/octet-stream" 1 T)) ) ) ) ) ) (and S (=0 *Http1) (task (close S))) ) )