Overview
| Comment: | Fixed an unbound variable and made it handle 1.81. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.81-fix-api-changed |
| Files: | files | file ages | folders |
| SHA1: |
dc561cf3576b83c3a2c2c3ff38fd9307 |
| User & Date: | mmgraham on 2024-07-03 12:50:53 |
| Original Comment: | Fixed an unbound variable and made it handle 1.81. Enter a commit message for this check-in. Lines beginning with # are ignored. |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-07-03
| ||
| 12:50 | Fixed an unbound variable and made it handle 1.81. Leaf check-in: dc561cf357 user: mmgraham tags: v1.81-fix-api-changed | |
|
2024-07-01
| ||
| 17:27 | Changed version to v1.8001 Leaf check-in: 6b8bacba76 user: mmgraham tags: v1.81, v1.8101 | |
Changes
Modified common.scm from [1039cd02f7] to [436f5e3d6d].
| ︙ | ︙ | |||
398 399 400 401 402 403 404 |
(- megatest-version (common:get-last-run-version-number)))
(define (common:version-changed?)
(not (equal? (common:get-last-run-version)
(common:version-signature))))
| | | | | 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 |
(- megatest-version (common:get-last-run-version-number)))
(define (common:version-changed?)
(not (equal? (common:get-last-run-version)
(common:version-signature))))
;; From 1.70 to 1.81, db's are compatible.
(define (common:api-changed?)
(let* (
(megatest-major-version (substring (->string megatest-version) 0 4))
(run-major-version (substring (conc (common:get-last-run-version)) 0 4))
)
(and (not (or (equal? megatest-major-version "1.80") (equal? megatest-major-version "1.81")))
(not (equal? megatest-major-version run-major-version)))
)
)
;;======================================================================
;; Move me elsewhere ...
;; RADT => Why do we meed the version check here, this is called only if version misma
;;
|
| ︙ | ︙ |