picolisp

commit 38ccbc8bd5eefa023fd0705f88db0ec5c895625e
parent d47d6364f278eae3e7ccb19322fd09aedcceadff
Author: Commit-Bot <unknown>
Date:   Sun,  3 Oct 2010 06:48:25 +0000

Automatic commit from picoLisp.tgz, From: Sun, 03 Oct 2010 06:48:25 GMT
Diffstat:
M
lib.l
 | 
32
++++++++++++++++----------------
M
src64/version.l
 | 
4
++--

2 files changed, 18 insertions(+), 18 deletions(-)
diff --git a/lib.l b/lib.l
@@ -1,4 +1,4 @@
-# 27aug10abu
+# 03oct10abu
 # (c) Software Lab. Alexander Burger
 
 (de task (Key . Prg)
@@ -303,34 +303,34 @@
 
 (de pp ("X" C)
    (let *Dbg NIL
-      (when (pair "X")
-         (setq C (cdr "X")) )
+      (and (pair "X") (setq C (cdr "X")))
       (prin "(")
       (printsp (if C 'dm 'de))
-      (prog1
-         (printsp "X")
+      (prog1 (printsp "X")
          (setq "X"
             (if C
                (method (if (pair "X") (car "X") "X") C)
                (val "X") ) )
          (cond
-            ((atom "X")
-               (prin ". ")
-               (print "X") )
+            ((atom "X") (prin ". ") (print "X"))
             ((atom (cdr "X"))
                (ifn (cdr "X")
                   (print (car "X"))
                   (print (car "X"))
                   (prin " . ")
                   (print @) ) )
-            (T (print (pop '"X"))
-               (while (pair "X")
-                  (prinl)
-                  (pretty (pop '"X") 3) )
-               (when "X"
-                  (prin " . ")
-                  (print "X") )
-               (space) ) )
+            (T
+               (let Z "X"
+                  (print (pop '"X"))
+                  (loop
+                     (T (== Z "X") (prin " ."))
+                     (NIL "X")
+                     (T (atom "X")
+                        (prin " . ")
+                        (print "X") )
+                     (prinl)
+                     (pretty (pop '"X") 3) )
+                  (space) ) ) )
          (prinl ")") ) ) )
 
 (de show ("X" . @)
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 30sep10abu
+# 03oct10abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 4 1)
+(de *Version 3 0 4 2)
 
 # vi:et:ts=3:sw=3