.
original commit: af55da650cc28c688a50c53ab34ed354c338d4f1
This commit is contained in:
parent
fdfb67433d
commit
be718d5973
|
@ -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))))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user