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

fix minor default

Browse Source 
svn: r1623
This commit is contained in:
Matthew Flatt 2005-12-15 20:14:16 +00:00
parent af2c759187
commit 202dcd2414
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/dynext/filename-version.ss
View File

@ -7,7 +7,7 @@
(cond [(regexp-match #rx"^([0-9]+(?:p[0-9])?)(?:[.]([0-9]+))?$" (cond [(regexp-match #rx"^([0-9]+(?:p[0-9])?)(?:[.]([0-9]+))?$"
(version)) (version))
=> (lambda (m) => (lambda (m)
(let ([major (cadr m)] [minor (or (caddr m) #"")]) (let ([major (cadr m)] [minor (or (caddr m) "")])
(string-append major "_" (string-append major "_"
(make-string (- (string-length "xxxxxxx") (make-string (- (string-length "xxxxxxx")
1 1