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