.
original commit: 751b42b968ff1e58f6d60557d61024af28734350
This commit is contained in:
parent
ae529383a0
commit
ed31184fa5
|
@ -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))))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user