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

sort comments

Browse Source 
svn: r3074
This commit is contained in:
Eli Barzilay 2006-05-26 13:19:23 +00:00
parent 5a449b0911
commit f4386a4598
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/mzlib/foreign.ss
View File

@ -163,8 +163,8 @@
;; unreliable). ;; unreliable).
(let* ([version (if (pair? version) (string-append "." (car version)) "")] (let* ([version (if (pair? version) (string-append "." (car version)) "")]
[fullpath (lambda (p) (path->complete-path (expand-path p)))] [fullpath (lambda (p) (path->complete-path (expand-path p)))]
[absolute? (absolute-path? name)] ; orig name [absolute? (absolute-path? name)]
[name0 (path->string (expand-path name))] [name0 (path->string (expand-path name))] ; orig name
[name (if (regexp-match lib-suffix-re name0) ; name + suffix [name (if (regexp-match lib-suffix-re name0) ; name + suffix
(string-append name0 version) (string-append name0 version)
(string-append name0 "." lib-suffix version))]) (string-append name0 "." lib-suffix version))])