fix getpid
for Windows ro use winapi
instead of 'stdcall
This commit is contained in:
parent
6943457ea1
commit
746e8ff1fb
|
@ -55,7 +55,7 @@
|
||||||
|
|
||||||
(define windows-getpid
|
(define windows-getpid
|
||||||
(delay-ffi-obj "GetCurrentProcessId" (force kernel32)
|
(delay-ffi-obj "GetCurrentProcessId" (force kernel32)
|
||||||
(_fun #:abi 'stdcall -> _int)))
|
(_fun #:abi winapi -> _int)))
|
||||||
|
|
||||||
(define (getpid)
|
(define (getpid)
|
||||||
((force (case (system-type)
|
((force (case (system-type)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user