26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
(declare (uses mtver))
(declare (uses csv-xml))
(declare (uses keysmod))
(declare (uses mtmod))
(declare (uses processmod))
(declare (uses dbmod))
(declare (uses rmtmod))
(module runsmod
*
(import scheme
(prefix sqlite3 sqlite3:)
chicken.base
|
>
|
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
(declare (uses mtver))
(declare (uses csv-xml))
(declare (uses keysmod))
(declare (uses mtmod))
(declare (uses processmod))
(declare (uses dbmod))
(declare (uses rmtmod))
(declare (uses testsmod))
(module runsmod
*
(import scheme
(prefix sqlite3 sqlite3:)
chicken.base
|
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
debugprint
keysmod
mtmod
mtver
processmod
dbmod
rmtmod
)
;; use this struct to facilitate refactoring
;;
(defstruct runs:dat
reglen regfull
|
>
|
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
debugprint
keysmod
mtmod
mtver
processmod
dbmod
rmtmod
testsmod
)
;; use this struct to facilitate refactoring
;;
(defstruct runs:dat
reglen regfull
|