picolisp

commit cc29c81d6f7e0a279f5925b477cd7397e4eaa33e
parent 11d84f5ff8ae11db3f4aebe39986da0c2bcf2c16
Author: Commit-Bot <unknown>
Date:   Mon, 21 Jun 2010 08:50:13 +0000

Automatic commit from picoLisp.tgz, From: Mon, 21 Jun 2010 08:50:13 GMT
Diffstat:
M
doc/app.html
 | 
4
++--
M
lib/http.l
 | 
15
++++++++-------
M
src64/version.l
 | 
4
++--

3 files changed, 12 insertions(+), 11 deletions(-)
diff --git a/doc/app.html b/doc/app.html
@@ -560,7 +560,7 @@ two-dimensional tables with the <code>&lt;table&gt;</code> and
 ########################################################################
 (html 0 "Table" "lib.css" NIL
    (&lt;table&gt; NIL NIL NIL
-      (for (N 1 (&gt;= 10 N) (inc N))              # A table with 10 rows
+      (for N 10                                    # A table with 10 rows
          (&lt;row&gt; NIL N (prin (* N N))) ) ) )     # and 2 columns
 ########################################################################
 </code></pre>
@@ -590,7 +590,7 @@ columns, and print each row in an alternating red and blue color
       '((width . "200px") (style . "border: dotted 1px;"))    # table style
       "Square Numbers"                                        # caption
       '((align "Number") (align "Square"))                    # 2 headers
-      (for (N 1 (&gt;= 10 N) (inc N))                            # 10 rows
+      (for N 10                                                  # 10 rows
          (&lt;row&gt; (xchg '(red) '(blue))                         # red or blue
             N                                                 # 2 columns
             (prin (* N N) ) ) ) ) )
diff --git a/lib/http.l b/lib/http.l
@@ -1,4 +1,4 @@
-# 30may10abu
+# 21jun10abu
 # (c) Software Lab. Alexander Burger
 
 # *Home *Gate *Host *Port *Port1 *Http1 *Chunked
@@ -382,12 +382,13 @@
    (and *Tmp (pre? *Tmp File) (one Upd))
    (ifn (info File)
       (http404)
-      (http1 (or Typ (mimetype File)) Upd (stem (chop File) "/") Att)
-      (prinl "Content-Length: " (car @) "^M")
-      (prin "Last-Modified: ")
-      (httpDate (cadr @) (cddr @))
-      (prinl "^M")
-      (in File (echo)) ) )
+      (let I @
+         (http1 (or Typ (mimetype File)) Upd (stem (chop File) "/") Att)
+         (prinl "Content-Length: " (car I) "^M")
+         (prin "Last-Modified: ")
+         (httpDate (cadr I) (cddr I))
+         (prinl "^M")
+         (in File (echo)) ) ) )
 
 (de srcUrl (Url)
    (if (or (pre? "http:" Url) (pre? "https:" Url))
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 19jun10abu
+# 21jun10abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 2 32)
+(de *Version 3 0 2 33)
 
 # vi:et:ts=3:sw=3