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 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:
Mlib/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