picolisp

commit 70e013060a2bf2955a5746158b713a85cdb10b64
parent 47df749836353ff5ab0487c39e0ae0b75b9bb04f
Author: Commit-Bot <unknown>
Date:   Tue, 31 Aug 2010 08:49:30 +0000

Automatic commit from picoLisp.tgz, From: Tue, 31 Aug 2010 08:49:30 GMT
Diffstat:
M
misc/stress.l
 | 
8
+++-----
M
src64/io.l
 | 
6
+++---
M
src64/version.l
 | 
4
++--

3 files changed, 8 insertions(+), 10 deletions(-)
diff --git a/misc/stress.l b/misc/stress.l
@@ -1,4 +1,4 @@
-# 22mar10abu
+# 30aug10abu
 # (c) Software Lab. Alexander Burger
 # Use: nice ./p misc/stress.l -main -go -bye; rm db/test jnl db/test2
 
@@ -17,8 +17,7 @@
          (let K (rnd)
             (with (db 'key '+A K)
                (unless (= K (: key))
-                  (print '!)
-                  (flush) ) ) ) )
+                  (quit "key mismatch" K) ) ) ) )
       (dbSync)
       (let (D (rnd)  X (db 'key '+A (rnd)))
          (inc *DB (- D (get X 'dat)))
@@ -33,8 +32,7 @@
             (unless (= (car K) (get V 'dat))
                (quit "dat mismatch" K) )
             (inc 'N (car K)) ) )
-      (or
-         (= N (val *DB))
+      (unless (= N (val *DB))
          (quit "val mismatch" (- N (val *DB))) ) ) )
 
 (de main ()
diff --git a/src64/io.l b/src64/io.l
@@ -1,4 +1,4 @@
-# 30aug10abu
+# 31aug10abu
 # (c) Software Lab. Alexander Burger
 
 # Close file descriptor
@@ -377,7 +377,7 @@
    add E 2  # Point to new data
    movn (E) (X) C  # Copy data
    add C 2  # Total new size
-   add (Y IV)  # Add to buffer count
+   add (Y IV) C  # Add to buffer count
    ret
 
 (code 'flushA_F 0)
@@ -2875,8 +2875,8 @@
                         call allocAE_A  # Shrink buffer
                         ld (Y V) A  # Store
                      end
+                     ld (Y III) 0  # Clear buffer offset
                   end
-                  ld (Y III) 0  # Clear buffer offset
                else
                   call clsChildY  # Close child
                end
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 28aug10abu
+# 31aug10abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 3 16)
+(de *Version 3 0 3 17)
 
 # vi:et:ts=3:sw=3