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

take into account pre-release alpha versions also

Browse Source 
svn: r12099
This commit is contained in:
Eli Barzilay 2008-10-23 09:11:21 +00:00
parent d82746fc22
commit 4db61ef355
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/version/utils.ss
View File

@ -37,7 +37,9 @@
(define (alpha-version? v) (define (alpha-version? v)
(let ([l (version->list 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 ;; returns an integer representing the version (XXYYZZZWWW) or #f if invalid
;; works for pre v4 versions too ;; works for pre v4 versions too