From 7d1d8bf7fe97246dc33f40d7ae738ce3db960cd7 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 15 Jul 2008 18:26:12 +0000 Subject: [PATCH] some additional sanity checking svn: r10776 --- collects/version/utils.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/version/utils.ss b/collects/version/utils.ss index 909e67ef4f..a6da14b213 100644 --- a/collects/version/utils.ss +++ b/collects/version/utils.ss @@ -63,7 +63,8 @@ [else #f])) ;; general sanity check, performed once when loaded -(when (>= (string->number (car (regexp-match #rx"^[0-9]+" (version)))) 49) +(unless (and (< (string->number (car (regexp-match #rx"^[0-9]+" (version)))) 49) + (integer? (version->integer version))) ;; When this happens, we got to numbers that can be confused with old version ;; numbers, and the above code should be modified. With the current rate of ;; changes, this should happen in more 150 years. Either programming is