take into account pre-release alpha versions also

svn: r12099
This commit is contained in:
Eli Barzilay 2008-10-23 09:11:21 +00:00
parent d82746fc22
commit 4db61ef355

View File

@ -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