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

updated so that the server understands v350 and later

Browse Source 
svn: r3516
This commit is contained in:
Jacob Matthews 2006-06-28 03:52:37 +00:00
parent 8d9e8b852a
commit 6d1f299cfc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/planet/private/planet-shared.ss
View File

@ -28,13 +28,13 @@ Various common pieces of code that both the client and server need to access
(define (language-version->repository ver)
(cond
[(regexp-match #rx"^20.+" ver) "207.1"]
[(regexp-match #rx"(^30.+)|(^29.+)" ver) "300"]
[(regexp-match #rx"(^3..+)|(^29.+)" ver) "300"]
[else #f]))
(define (version->description ver)
(cond
[(string=? ver "207.1") "20x"]
[(string=? ver "300") "299.x-30x"]
[(string=? ver "300") "299.x-3xx"]
[else (error 'version->description "Expected one of 207.1 and 300, got ~a" ver)]))
(define (legal-language? l)