From 827ef4deb70737b7c57ce7255c7fe4b4a3cc6b41 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 12 Jan 2007 13:07:10 +0000 Subject: [PATCH] use regexp-quote to turn extension into a pattern svn: r5335 --- collects/dynext/file-unit.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/dynext/file-unit.ss b/collects/dynext/file-unit.ss index d2510c5194..6cb81b4c3d 100644 --- a/collects/dynext/file-unit.ss +++ b/collects/dynext/file-unit.ss @@ -1,7 +1,8 @@ (module file-unit mzscheme - (require (lib "unit.ss")) - (require (lib "include.ss")) + (require (lib "unit.ss") + (lib "include.ss") + (lib "string.ss")) (require "file-sig.ss") @@ -72,7 +73,7 @@ "compiled object" (extract-suffix append-object-suffix)) (mk 'extract-base-filename/ext - (string->bytes/latin-1 (format "(?i:~a)" (subbytes (system-type 'so-suffix) 1))) + (regexp-quote (subbytes (system-type 'so-suffix) 1) #f) "MzScheme extension" (extract-suffix append-extension-suffix)))))))