picolisp

commit b0f61c4555ada8d1eb216cc6be438bbbea934261
parent cc54fff8b0700ad5390ebad7993521dbf0e3a655
Author: Commit-Bot <unknown>
Date:   Tue,  6 Jul 2010 13:24:58 +0000

Automatic commit from picoLisp.tgz, From: Tue, 06 Jul 2010 13:24:58 GMT
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 @@
-# 27jun10abu
+# 06jul10abu
 # (c) Software Lab. Alexander Burger
 
 # *Home *Gate *Host *Port *Port1 *Port% *Http1 *Chunked
@@ -96,8 +96,8 @@
       (when (accept *Sock)
          (task @ (http @)) ) ) )
 
-(de baseHRef (Port)
-   (pack
+(de baseHRef (Port . @)
+   (pass pack
       (or *Gate "http") "://" *Host
       (if *Gate "/" ":") (or Port *Port) "/" ) )
 
@@ -394,7 +394,7 @@
 (de srcUrl (Url)
    (if (or (pre? "http:" Url) (pre? "https:" Url))
       Url
-      (pack (baseHRef *Port1) Url) ) )
+      (baseHRef *Port1 Url) ) )
 
 (de sesId (Url)
    (if