picolisp

commit 263bed6676c57a5a172bafd33302469d89e69088
parent c0bf35a2ff7cdb79226adbd1576915a8f0f572a5
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 21 Mar 2012 18:03:11 +0100

Minor formatting
Diffstat:
M
lib/http.l
 | 
5
++---

1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/lib/http.l b/lib/http.l
@@ -1,4 +1,4 @@
-# 20mar12abu
+# 21mar12abu
 # (c) Software Lab. Alexander Burger
 
 # *Home *Gate *Host *Port *Port1 *Port% *Http1 *Chunked
@@ -241,8 +241,7 @@
          (setq
             *ConId (head @ @U)
             @U (cdr (nth @U @))
-            *ConId
-            (pack (if (member "/" *ConId) (cdr @) *ConId)) )
+            *ConId (pack (if (member "/" *ConId) (cdr @) *ConId)) )
          (off *ConId) )
       (while (setq L (line))
          (cond