picolisp

commit 7319b8ef98653102aa9999b9b179ae7fe7bec45b
parent de19d048f0f4bfbbc3d7a5eaabb4eecf35ea8e0b
Author: Commit-Bot <unknown>
Date:   Fri, 27 Aug 2010 08:20:32 +0000

Automatic commit from picoLisp.tgz, From: Fri, 27 Aug 2010 08:20:32 GMT
Diffstat:
M
lib.l
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lib.l b/lib.l
@@ -1,4 +1,4 @@
-# 15jul10abu
+# 27aug10abu
 # (c) Software Lab. Alexander Burger
 
 (de task (Key . Prg)
@@ -253,10 +253,10 @@
 
 ### Pretty Printing ###
 (de *PP
-   T NIL if if2 ifn when unless while until do case state for
+   T NIL if ifn when unless while until do case state for
    with catch finally ! setq default push job use let let?
    prog1 later recur redef =: in out ctl tab new )
-(de *PP1 if2 let let? for redef)
+(de *PP1 let let? for redef)
 (de *PP2 setq default)
 
 (de pretty (X N . @)