From 87173faf700adcfc4185a9b9c3da267e78a556f3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 28 Jun 2006 01:01:02 +0000 Subject: [PATCH] less Windows special cases now that ffi-lib #f searches MzScheme DLL svn: r3513 original commit: 5eb65a0c32aa809118626f9648a4b7d44f4f74fb --- collects/mzlib/os.ss | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/collects/mzlib/os.ss b/collects/mzlib/os.ss index 9580d7d..1c2585c 100644 --- a/collects/mzlib/os.ss +++ b/collects/mzlib/os.ss @@ -2,11 +2,6 @@ (require (lib "etc.ss") (lib "foreign.ss")) (unsafe!) - (define msvcrt - (if (eq? 'windows (system-type)) - (delay (ffi-lib "msvcrt")) - (delay #f))) - (define kernel32 (delay (and (eq? 'windows (system-type)) (ffi-lib "kernel32")))) @@ -93,18 +88,18 @@ ;; open : string int -> int (define open - (delay-ffi-obj (winize "open") (force msvcrt) + (delay-ffi-obj (winize "open") #f (_fun _string _int -> _int))) ;; close : int -> int (define close - (delay-ffi-obj (winize "close") (force msvcrt) + (delay-ffi-obj (winize "close") #f (_fun _int -> _int))) ;; ftruncate : int int -> int (define ftruncate (if (eq? 'windows (system-type)) - (delay-ffi-obj "_chsize" (force msvcrt) + (delay-ffi-obj "_chsize" #f (_fun _int _llong -> _int)) (delay-ffi-obj "ftruncate" #f (_fun _int _llong -> _int))))