picolisp

commit ea3e1f264176741bc6085680275c877f0c8896f1
parent 6eb80c3e971628b02dea197990379373af2c0059
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri,  5 Aug 2011 10:59:38 +0200

Slightly simplified
Diffstat:
M
lib/http.l
 | 
10
++++------

1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/lib/http.l b/lib/http.l
@@ -1,4 +1,4 @@
-# 23jun11abu
+# 05aug11abu
 # (c) Software Lab. Alexander Burger
 
 # *Home *Gate *Host *Port *Port1 *Port% *Http1 *Chunked
@@ -209,14 +209,12 @@
                      ((match '("-" @X "." "h" "t" "m" "l") @U)
                         (and *SesId (timeout *Timeout))
                         (try 'html> (extern (ht:Pack @X))) )
-                     ((= '! (car @U))
-                        (if (disallowed)
-                           (prog (notAllowed *Url) (http404))
-                           (and *SesId (timeout *Timeout))
-                           (apply (val (intern (ht:Pack (cdr @U)))) L) ) )
                      ((disallowed)
                         (notAllowed *Url)
                         (http404) )
+                     ((= '! (car @U))
+                        (and *SesId (timeout *Timeout))
+                        (apply (val (intern (ht:Pack (cdr @U)))) L) )
                      ((tail '("." "l") @U)
                         (and *SesId (timeout *Timeout))
                         (apply script L *Url) )