picolisp

commit 0489a090b5d500fe287118b9e39c66b9547be5d4
parent 0e688c304568c3f8f1c53b29237020023f488fd6
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 23 Feb 2013 11:39:05 +0100

Close instead of http404 on *ConId mismatches
Diffstat:
M
lib/http.l
 | 
7
++-----

1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/lib/http.l b/lib/http.l
@@ -1,4 +1,4 @@
-# 17jan13abu
+# 23feb13abu
 # (c) Software Lab. Alexander Burger
 
 # *Home *Gate *Host *Port *Port1 *Port% *Http1 *Chunked
@@ -188,10 +188,7 @@
                   (off S)
                   (throw "http") ) )
             (if (or (<> *ConId *SesId) (and *SesAdr (<> @ *Adr)))
-               (if *ConId
-                  (out S (http404))
-                  (task (close S))
-                  (off S) )
+               (prog (task (close S)) (off S))
                (setq
                   L (split @U "?")
                   @U (car L)