24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses debugprint))
(declare (uses mtargs))
(declare (uses mtmod))
(module dbmod
*
(import scheme)
(cond-expand
(chicken-4
(import chicken
data-structures
|
<
>
|
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses debugprint))
(declare (uses mtargs))
(declare (uses mtmod))
(module dbmod
()
(import scheme)
(cond-expand
(chicken-4
(import chicken
data-structures
|
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
commonmod
configfmod
dbfile
debugprint
mtmod
)
(include "common_records.scm")
;; (include "db_records.scm")
;; (include "key_records.scm")
(include "run_records.scm")
(define *number-of-writes* 0)
(define *number-non-write-queries* 0)
|
|
|
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
commonmod
configfmod
dbfile
debugprint
mtmod
)
;; (include "common_records.scm")
;; (include "db_records.scm")
;; (include "key_records.scm")
(include "run_records.scm")
(define *number-of-writes* 0)
(define *number-non-write-queries* 0)
|