picolisp

commit f0d7e7b494203f78f37cbaf2ad5ea6ab544a0d85
parent 71c99f94091acc334a4daf5f8f8193837f54f3ac
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon,  6 Jun 2011 12:16:11 +0200

'dbSync' on arbitrary objects
Diffstat:
M
CHANGES
 | 
1
+
M
ersatz/picolisp.jar
 | 
0

M
lib/db.l
 | 
7
++++---
M
src/vers.h
 | 
2
+-
M
src64/version.l
 | 
4
++--

5 files changed, 8 insertions(+), 6 deletions(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
 * XXjun11 picoLisp-3.0.7
+   'dbSync' on arbitrary objects
    UB-Tree support in "lib/db.l"
    Renamed "ersatz/picolisp" to "ersatz/pil"
    Changed '@' to '!' for functions in URLs
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/lib/db.l b/lib/db.l
@@ -1,4 +1,4 @@
-# 30may11abu
+# 06jun11abu
 # (c) Software Lab. Alexander Burger
 
 # *Dbs *Jnl *Blob upd
@@ -806,9 +806,10 @@
 (var Dbf)
 (var Aux)
 
-(de dbSync ()
+(de dbSync (Obj)
    (let *Run NIL
-      (while (lock *DB) (wait 40))
+      (while (lock (or Obj *DB))
+         (wait 40) )
       (sync) ) )
 
 (de new! ("Typ" . @)
diff --git a/src/vers.h b/src/vers.h
@@ -1 +1 @@
-static byte Version[4] = {3,0,6,14};
+static byte Version[4] = {3,0,6,15};
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 26may11abu
+# 06jun11abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 6 14)
+(de *Version 3 0 6 15)
 
 # vi:et:ts=3:sw=3