original commit: 751b42b968ff1e58f6d60557d61024af28734350
This commit is contained in:
Matthew Flatt 2004-10-11 16:46:38 +00:00
parent ae529383a0
commit ed31184fa5

View File

@ -190,7 +190,7 @@
(let ([name (if (string? name)
name
(path->bytes name))])
(let ([m (regexp-match #rx#"[.](.+)$" name)])
(let ([m (regexp-match #rx#"[.]([^.]+)$" name)])
(and m
(cadr m))))))