picolisp

commit e7b9e6c248df405f4dd2670fded60d7763cec4a3
parent e8c8d0395df60365663db374c4bab02ae6ec9541
Author: Commit-Bot <unknown>
Date:   Sun, 27 Jun 2010 19:42:47 +0000

Automatic commit from picoLisp.tgz, From: Sun, 27 Jun 2010 19:42:47 GMT
Diffstat:
M
lib/http.l
 | 
7
+++----

1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/lib/http.l b/lib/http.l
@@ -119,10 +119,9 @@
 
 # Application startup
 (de app ()
-   (if *SesId
-      (off *Port%)
+   (unless *SesId
       (setq
-         *Port% (unless *Gate (= *Port *Port1))
+         *Port% (not *Gate)
          *SesId (pack (in "/dev/urandom" (rd 7)) "~")
          *Sock (port *HPorts '*Port) )
       (timeout *Timeout) ) )
@@ -136,7 +135,7 @@
 # Handle HTTP-Transaction
 (de http (S)
    (use (*Post L @U @H @X)
-      (off *Post *ContLen *Cookies "*Cookies" "*HtSet")
+      (off *Post *Port% *ContLen *Cookies "*Cookies" "*HtSet")
       (catch "http"
          (in S
             (cond