original commit: af55da650cc28c688a50c53ab34ed354c338d4f1
This commit is contained in:
Robby Findler 2004-04-13 22:14:42 +00:00
parent fdfb67433d
commit be718d5973

View File

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