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

use system type for suffix

Browse Source 
svn: r5365
This commit is contained in:
Eli Barzilay 2007-01-16 10:57:26 +00:00
parent 94ee1e0116
commit e51405b682
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/mzscheme/foreign-test.ss
View File

@ -40,11 +40,8 @@
(let ([c (build-path (this-expression-source-directory) "foreign-test.c")]
[o (build-path (current-directory) "foreign-test.o")]
[so (build-path (current-directory)
(string-append "foreign-test."
(case (system-type)
[(unix) "so"]
[(macosx) "dylib"]
[(windows) "dll"])))])
(bytes->path (bytes-append #"foreign-test"
(system-type 'so-suffix))))])
(when (file-exists? o) (delete-file o))
(when (file-exists? so) (delete-file so))
(parameterize ([current-standard-link-libraries '()])