From 8cf48bf54d25e599549a6bb1c449e9f499781d0c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 19 Apr 2005 02:27:13 +0000 Subject: [PATCH] . original commit: 0f10e557c6cef1aa3966c273a15ee22bf9877243 --- collects/mzlib/os.ss | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) diff --git a/collects/mzlib/os.ss b/collects/mzlib/os.ss index a9d31b3..f9df068 100644 --- a/collects/mzlib/os.ss +++ b/collects/mzlib/os.ss @@ -14,22 +14,19 @@ (delay (and (eq? 'windows (system-type)) (ffi-lib "kernel32")))) - (define (delay-ffi-obj name lib type default-result) - (delay (get-ffi-obj name lib type (lambda () - (lambda () default-result))))) + (define (delay-ffi-obj name lib type) + (delay (get-ffi-obj name lib type))) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; gethostbyname (define unix-gethostname (delay-ffi-obj "gethostname" #f - (_fun _bytes _int -> _int) - -1)) + (_fun _bytes _int -> _int))) (define windows-getcomputername (delay-ffi-obj "GetComputerNameExA" (force kernel32) - (_fun _int _bytes _cvector -> _int) - 0)) + (_fun _int _bytes _cvector -> _int))) (define (gethostname) (case (system-type) @@ -56,13 +53,11 @@ (define unix-getpid (delay-ffi-obj "getpid" #f - (_fun -> _int) - #f)) + (_fun -> _int))) (define windows-getpid (delay-ffi-obj "GetCurrentProcessId" (force kernel32) - (_fun -> _int) - #f)) + (_fun -> _int))) (define (getpid) (case (system-type)