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

some additional sanity checking

Browse Source 
svn: r10776
This commit is contained in:
Eli Barzilay 2008-07-15 18:26:12 +00:00
parent 22ac059a81
commit 7d1d8bf7fe
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/version/utils.ss
View File

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