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

fix name handling in `tar-gzip'

Browse Source
This commit is contained in:
Matthew Flatt 2013-08-13 09:56:36 -06:00
parent 19904cee7a
commit ccb31f4153
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/file/tar.rkt
View File

@ -165,5 +165,6 @@
(cond [(regexp-match #rx"^(.*[.])(?:tar[.]gz|tgz)$" (cond [(regexp-match #rx"^(.*[.])(?:tar[.]gz|tgz)$"
(if (path? tgz-file) (if (path? tgz-file)
(path->string tgz-file) tgz-file)) (path->string tgz-file) tgz-file))
=> (lambda (m) (string-append (car m) "tar"))]) => (lambda (m) (string-append (car m) "tar"))]
[else #f])
(current-seconds)))))) (current-seconds))))))