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

fix version sanity check

Browse Source 
svn: r10777
This commit is contained in:
Matthew Flatt 2008-07-15 18:50:48 +00:00
parent 7d1d8bf7fe
commit e3f3595625
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/version/utils.ss
View File

@ -64,7 +64,7 @@
;; general sanity check, performed once when loaded
(unless (and (< (string->number (car (regexp-match #rx"^[0-9]+" (version)))) 49)
(integer? (version->integer version)))
(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