Overview
| Comment: | Fix for version-as-string issue |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
e3ac63c41558de4a164d367876099e9d |
| User & Date: | mrwellan on 2017-06-07 12:22:28 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-07
| ||
| 13:46 | Changed warning to INFO check-in: 179809b855 user: mrwellan tags: v1.64 | |
| 12:22 | Fix for version-as-string issue check-in: e3ac63c415 user: mrwellan tags: v1.64 | |
| 10:55 | Always create the alist files whether or not a lock was received. Bump version check-in: 5aa69feecf user: mrwellan tags: v1.64 | |
Changes
Modified common.scm from [7f1f825291] to [f2d9dfe4a2].
| ︙ | ︙ | |||
239 240 241 242 243 244 245 |
(define (common:version-changed?)
(not (equal? (common:get-last-run-version)
(common:version-signature))))
(define (common:api-changed?)
(not (equal? (substring (->string megatest-version) 0 4)
| | | 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 |
(define (common:version-changed?)
(not (equal? (common:get-last-run-version)
(common:version-signature))))
(define (common:api-changed?)
(not (equal? (substring (->string megatest-version) 0 4)
(substring (conc (common:get-last-run-version)) 0 4))))
;; Move me elsewhere ...
;; RADT => Why do we meed the version check here, this is called only if version misma
;;
(define (common:cleanup-db dbstruct)
(db:multi-db-sync
dbstruct
|
| ︙ | ︙ |