picolisp

commit b6b302c5f3fb9f027b9eee3dbe4f7cc0fdb2f2e2
parent 6f1b835997cec1182378300cb65eb935869c1034
Author: Commit-Bot <unknown>
Date:   Mon, 15 Nov 2010 14:58:59 +0000

Automatic commit from picoLisp.tgz, From: Mon, 15 Nov 2010 14:58:59 GMT
Diffstat:
M
app/main.l
 | 
3
++-
M
doc/tut.html
 | 
8
+++-----
M
ersatz/picolisp.jar
 | 
0

M
lib/conDbgc.l
 | 
5
+++--
M
lib/form.l
 | 
6
++++--
M
src64/version.l
 | 
4
++--

6 files changed, 14 insertions(+), 12 deletions(-)
diff --git a/app/main.l b/app/main.l
@@ -1,4 +1,4 @@
-# 14jan10abu
+# 15nov10abu
 # (c) Software Lab. Alexander Burger
 
 (allowed ("app/" "img/")
@@ -50,6 +50,7 @@
             (in Sock
                (while (rd)
                   (sync)
+                  (tell)
                   (out Sock
                      (pr (eval @)) ) ) )
             (bye) )
diff --git a/doc/tut.html b/doc/tut.html
@@ -343,7 +343,8 @@ and indented way.
 : (pp 'pretty)
 (de pretty (X N . @)
    (setq N (abs (space (or N 0))))
-   (while (args) (printsp (next)))
+   (while (args)
+      (printsp (next)) )
    (if (or (atom X) (>= 12 (size X)))
       (print X)
       (while (== 'quote (car X))
@@ -360,10 +361,7 @@ and indented way.
                         (print (pop 'X)) )
                      (space)
                      (print (pop 'X))
-                     (when
-                        (or
-                           (atom (car X))
-                           (>= 12 (size (car X))) )
+                     (when (or (atom (car X)) (>= 12 (size (car X))))
                         (space)
                         (print (pop 'X)) ) ) )
                ((memq (car Z) *PP2)
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/lib/conDbgc.l b/lib/conDbgc.l
@@ -1,4 +1,4 @@
-# 29jun07abu
+# 15nov10abu
 # (c) Software Lab. Alexander Burger
 
 ### Concurrent DB Garbage Collector ###
@@ -44,7 +44,8 @@
                (wait *DbgcDly)
                (unless (mark S)
                   (sync)
-                  (unless (mark S)
+                  (if (mark S)
+                     (tell)
                      (and (isa '+Entity S) (zap> S))
                      (zap S)
                      (commit)
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 09aug10abu
+# 15nov10abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -231,7 +231,8 @@
                   (when *Lock
                      (if (lock @)
                         (=: able (off *Lock))
-                        (sync) ) )
+                        (sync)
+                        (tell) ) )
                   (for This (: gui)
                      (nond
                         ((: id) (setq "*Chart" This))
@@ -1765,6 +1766,7 @@
    (if (lock Obj)
       (err (text ,"Currently edited by '@2' (@1)" @  (cdr (lup *Users @))))
       (sync)
+      (tell)
       (setq *Lock Obj) ) )
 
 
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 12nov10abu
+# 15nov10abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 4 7)
+(de *Version 3 0 4 8)
 
 # vi:et:ts=3:sw=3