From 810d88c82d877ec180197bbcb607b862b4b578e6 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 2 Dec 2005 06:38:08 +0000 Subject: [PATCH] report stable and alpha if our alpha is older than the stable svn: r1482 --- collects/version/check.ss | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/collects/version/check.ss b/collects/version/check.ss index 26e93e254b..f3fceaef1c 100644 --- a/collects/version/check.ss +++ b/collects/version/check.ss @@ -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.