From eed6ec36e98cd772c11873f2d9c788ad9e922e10 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 12 Jan 2007 07:09:56 +0000 Subject: [PATCH] 369.4 svn: r5327 original commit: 91add0453f25090c3b11b3fae06a01d65dbb0b3e --- collects/mzlib/foreign.ss | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss index 9405093..35e4c3b 100644 --- a/collects/mzlib/foreign.ss +++ b/collects/mzlib/foreign.ss @@ -132,12 +132,7 @@ ;; ---------------------------------------------------------------------------- ;; Getting and setting library objects -(define lib-suffix - (case (system-type) - [(unix) "so"] - [(macosx) "dylib"] - [(windows) "dll"] - [else (error 'foreign "unknown system type: ~s" (system-type))])) +(define lib-suffix (bytes->string/latin-1 (subbytes (system-type 'so-suffix) 1))) (define lib-suffix-re (regexp (string-append "\\." lib-suffix "$"))) (provide (rename get-ffi-lib ffi-lib)