From b6e2bf4a60d4ac1f7f85c090e88b0438aeb7ce65 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 16 Sep 2004 17:07:47 +0000 Subject: [PATCH] . original commit: 50c6fd5a133fc7e3f91bf8f5a7ea4523e0dbcb8c --- collects/mzlib/file.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.ss index 44d7dc9..503dd7e 100644 --- a/collects/mzlib/file.ss +++ b/collects/mzlib/file.ss @@ -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))))))