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

369.4

Browse Source 
svn: r5327

original commit: 91add0453f25090c3b11b3fae06a01d65dbb0b3e
This commit is contained in:
Matthew Flatt 2007-01-12 07:09:56 +00:00
parent a8a28dadec
commit eed6ec36e9
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mzlib/foreign.ss
View File

@ -132,12 +132,7 @@
;; ---------------------------------------------------------------------------- ;; ----------------------------------------------------------------------------
;; Getting and setting library objects ;; Getting and setting library objects
(define lib-suffix (define lib-suffix (bytes->string/latin-1 (subbytes (system-type 'so-suffix) 1)))
(case (system-type)
[(unix) "so"]
[(macosx) "dylib"]
[(windows) "dll"]
[else (error 'foreign "unknown system type: ~s" (system-type))]))
(define lib-suffix-re (regexp (string-append "\\." lib-suffix "$"))) (define lib-suffix-re (regexp (string-append "\\." lib-suffix "$")))
(provide (rename get-ffi-lib ffi-lib) (provide (rename get-ffi-lib ffi-lib)