Megatest

Check-in [b564f3f99c]
Login
Overview
Comment:Oops. Forgot to clean out the cache after processing the cached writes
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-cached-writes
Files: files | file ages | folders
SHA1: b564f3f99c33a4a6137b8f256029ea71ea686988
User & Date: matt on 2023-10-13 20:41:12
Other Links: branch diff | manifest | tags
Context
2023-10-13
20:42
Merged in cached writes check-in: cdc7397963 user: matt tags: v1.80-matt-fixme
20:41
Oops. Forgot to clean out the cache after processing the cached writes Leaf check-in: b564f3f99c user: matt tags: v1.80-cached-writes
2023-10-12
21:04
Cached writes for steps working correctly check-in: eee1dce5a3 user: matt tags: v1.80-cached-writes
Changes

Modified db.scm from [43baddb3c1] to [eca878b6ec].

4294
4295
4296
4297
4298
4299
4300
4301


4302
4303
4304
4305
4306
4307
4308
4294
4295
4296
4297
4298
4299
4300

4301
4302
4303
4304
4305
4306
4307
4308
4309







-
+
+







	   db
	   (lambda ()
	     (for-each
	      (lambda (queued-write)
		(match queued-write
		       ((proc params)(apply proc dbstruct params))
		       (else (assert #f "BAD queued-write"))))
	      writes-list))))))))
	      writes-list)))
	  (hash-table-delete! *cached-writes-queues* hkey))))))
  (set! *cached-writes-flag* #f)
  (mutex-unlock! *cached-writes-mutex*))

;; (db:extract-ods-file db "outputfile.ods" '(("sysname" "%")("fsname" "%")("datapath" "%")) "%")

;;======================================================================
;; moving watch dogs here due to dependencies