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

repair extract-base-filename/ext and extract-base-filename/o

Browse Source
This commit is contained in:
Matthew Flatt 2015-09-05 17:59:44 -06:00
parent 06841bbaff
commit 9c51370e51
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/dynext/file.rkt
View File

@ -80,9 +80,9 @@
(define (extract-base-filename/o s [program #f])
(extract 'extract-base-filename/o
s program
(case (system-type)
[(unix beos macos macosx) #"o"]
[(windows) #"obj"])
(extract-rx (case (system-type)
[(unix beos macos macosx) #"o"]
[(windows) #"obj"]))
"compiled object"
(extract-suffix append-object-suffix)))
@ -90,6 +90,6 @@
(extract 'extract-base-filename/ext
s
program
(regexp-quote (subbytes (system-type 'so-suffix) 1) #f)
(extract-rx (regexp-quote (subbytes (system-type 'so-suffix) 1) #f))
"Racket extension"
(extract-suffix append-extension-suffix)))