picolisp

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:
M
lib/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))) ) )