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

use regexp-quote to turn extension into a pattern

Browse Source 
svn: r5335
This commit is contained in:
Matthew Flatt 2007-01-12 13:07:10 +00:00
parent 06a069763a
commit 827ef4deb7
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/dynext/file-unit.ss
View File

@ -1,7 +1,8 @@
(module file-unit mzscheme (module file-unit mzscheme
(require (lib "unit.ss")) (require (lib "unit.ss")
(require (lib "include.ss")) (lib "include.ss")
(lib "string.ss"))
(require "file-sig.ss") (require "file-sig.ss")
@ -72,7 +73,7 @@
"compiled object" "compiled object"
(extract-suffix append-object-suffix)) (extract-suffix append-object-suffix))
(mk 'extract-base-filename/ext (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" "MzScheme extension"
(extract-suffix append-extension-suffix))))))) (extract-suffix append-extension-suffix)))))))