suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

report stable and alpha if our alpha is older than the stable

Browse Source 
svn: r1482
This commit is contained in:
Eli Barzilay 2005-12-02 06:38:08 +00:00
parent a869dbcc3d
commit 810d88c82d
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/version/check.ss
View File

@ -74,9 +74,15 @@
`(ok-but ,recent)]
;; new version out -- no alphas or we have an alpha => show recent
;; (also for svn builds of a stable version -- anything with ".")
[(or (equal? recent stable) (regexp-match #rx"[.]" current))
[(or (equal? recent stable)
(and (regexp-match #rx"[.]" current)
;; but if we have an alpha that is older then the current
;; stable then go to the next case
(string>=? current stable)))
`(newer ,recent)]
;; new version out, we have an outdated stable, there is also an alpha
;; (alternatively, we have an alpha that is older than the current
;; stable)
[else `(newer ,stable ,recent)]))))
;; Check the version on the server and compare to our version.