~ chicken-core (chicken-5) 3181e60bf381c41fb10af8a8ba8e04a7158b5d5d

commit 3181e60bf381c41fb10af8a8ba8e04a7158b5d5d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Feb 7 10:48:12 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Feb 7 10:48:12 2011 +0100

    use correct foreign type for ##sys#process in posixwin.scm (reported by mario)

diff --git a/posixwin.scm b/posixwin.scm
index 6a0781e0..a7305e31 100644
--- a/posixwin.scm
+++ b/posixwin.scm
@@ -1615,7 +1615,7 @@ EOF
 (define ##sys#process
   (let ([c-process
 	  (foreign-lambda bool "C_process" c-string c-string c-pointer
-	    (pointer int) (pointer int) (pointer int) (pointer int) int)])
+	    (c-pointer int) (c-pointer int) (c-pointer int) (c-pointer int) int)])
     ; The environment list must be sorted & include current directory
     ; information for the system drives. i.e !C:=...
     ; For now any environment is ignored.