141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
-
-
+
+
|
(include "test_records.scm")
;; (include "vg_records.scm")
;;======================================================================
;; L O C K I N G M E C H A N I S M S
;;======================================================================
(include "megatest-fossil-hash.scm")
(include "megatest-version.scm")
;; (include "megatest-fossil-hash.scm") ;; try getting this from commonmod
;; (include "megatest-version.scm")
;; globals
(define *writes-total-delay* 0)
(define *exit-started* #f)
(define *last-monitor-update-time* 0)
(define *default-log-port* (current-error-port))
|