suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 50c6fd5a133fc7e3f91bf8f5a7ea4523e0dbcb8c
This commit is contained in:
Matthew Flatt 2004-09-16 17:07:47 +00:00
parent 2e008db7b3
commit b6e2bf4a60
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/file.ss
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))))))