fix name handling in `tar-gzip'

2013-08-13 09:56:36 -06:00 · 2013-08-13 09:56:36 -06:00 · ccb31f4153
commit ccb31f4153
parent 19904cee7a
1 changed files with 2 additions and 1 deletions
--- a/racket/collects/file/tar.rkt
+++ b/racket/collects/file/tar.rkt
@ -165,5 +165,6 @@
         (cond [(regexp-match #rx"^(.*[.])(?:tar[.]gz|tgz)$"
                              (if (path? 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))))))