From e51405b68215302079ba92887fb8fd0ecd8f4607 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 16 Jan 2007 10:57:26 +0000 Subject: [PATCH] use system type for suffix svn: r5365 --- collects/tests/mzscheme/foreign-test.ss | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/collects/tests/mzscheme/foreign-test.ss b/collects/tests/mzscheme/foreign-test.ss index 1cb18e607c..5622537075 100644 --- a/collects/tests/mzscheme/foreign-test.ss +++ b/collects/tests/mzscheme/foreign-test.ss @@ -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 '()])