62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
(include "run_records.scm")
(define *number-of-writes* 0)
(define *number-non-write-queries* 0)
(import dbmod
dbfile
debugprint)
;; record for keeping state,status and count for doing roll-ups in
;; iterated tests
;;
(defstruct dbr:counts
(state #f)
(status #f)
|
|
>
|
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
(include "run_records.scm")
(define *number-of-writes* 0)
(define *number-non-write-queries* 0)
(import dbmod
dbfile
;; debugprint
)
;; record for keeping state,status and count for doing roll-ups in
;; iterated tests
;;
(defstruct dbr:counts
(state #f)
(status #f)
|