From 4db61ef35577424eef47128842b2278cbb6f8ad4 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 23 Oct 2008 09:11:21 +0000
Subject: [PATCH] take into account pre-release alpha versions also

svn: r12099
---
 collects/version/utils.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/version/utils.ss b/collects/version/utils.ss
index 764643567f..5decb550b6 100644
--- a/collects/version/utils.ss
+++ b/collects/version/utils.ss
@@ -37,7 +37,9 @@
 
 (define (alpha-version? v)
   (let ([l (version->list v)])
-    (or ((list-ref l 1) . >= . 90) ((list-ref l 2) . >= . 900))))
+    (or ((list-ref l 1) . >= . 90)
+        ((list-ref l 2) . >= . 900)
+        ((list-ref l 3) . >= . 900))))
 
 ;; returns an integer representing the version (XXYYZZZWWW) or #f if invalid
 ;; works for pre v4 versions too