153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
(define (common:version-changed?)
(not (equal? (common:get-last-run-version)
(common:version-signature))))
(define (common:exit-on-version-changed)
(if (common:version-changed?)
(begin
(debug:print 0
|
|
>
>
>
>
>
>
>
>
>
|
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
|
(define (common:version-changed?)
(not (equal? (common:get-last-run-version)
(common:version-signature))))
(define (common:exit-on-version-changed)
(if (common:version-changed?)
(begin
(debug:print 0
"ERROR: Version mismatch!\n"
" expected: " (common:version-signature) "\n"
" got: " (common:get-last-run-version) "\n"
" to switch versions you can run: \"megatest -cleanup-db\"")
;; megatest -cleanup-db IS NOT correcting the dbver. Let's force it for now.
;; Matt: please review this!
(db:multi-db-sync
#f
'killservers
'dejunk
'new2old)
(rmt:set-var "MEGATEST_VERSION" (common:version-signature))
(exit 1))))
;;======================================================================
;; S P A R S E A R R A Y S
;;======================================================================
(define (make-sparse-array)
|