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

fix modcollapse in some string planet path cases

Browse Source 
svn: r10175
This commit is contained in:
Matthew Flatt 2008-06-06 15:35:06 +00:00
parent 31bb298e67
commit 762e04ba60
1 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
collects/syntax/modcollapse.ss
View File

@ -162,21 +162,26 @@
,@(if (null? (cdr pkg+vers))
null
`(,(string->number (cadr pkg+vers))
,(let ([vers (caddr pkg+vers)])
(cond
[(regexp-match? #rx"<=" vers)
`(- ,(string->number (substring vers 2)))]
[(regexp-match? #rx">=" vers)
`(+ ,(string->number (substring vers 2)))]
[(regexp-match? #rx"=" vers)
(string->number (substring vers 1))]
[(regexp-match #rx"(.*)-(.*)" vers)
=> (lambda (m)
`(,(string->number (cadr m))
,(string->number (caddr m))))]
[else (error 'collapse-module-path
"confused when normalizing planet path: ~e"
s)])))))
. ,(if (null? (cddr pkg+vers))
null
(list
(let ([vers (caddr pkg+vers)])
(cond
[(regexp-match? #rx"<=" vers)
`(- ,(string->number (substring vers 2)))]
[(regexp-match? #rx">=" vers)
`(+ ,(string->number (substring vers 2)))]
[(regexp-match? #rx"=" vers)
(string->number (substring vers 1))]
[(regexp-match #rx"(.*)-(.*)" vers)
=> (lambda (m)
`(,(string->number (cadr m))
,(string->number (caddr m))))]
[(string->number vers)
=> (lambda (n) n)]
[else (error 'collapse-module-path
"confused when normalizing planet path: ~e"
s)])))))))
,@(if (null? path)
null
(reverse (cdr (reverse path)))))))]