$NetBSD: patch-ab,v 1.1 2007/06/05 05:44:37 wiz Exp $

--- src/guile-fcgi.c.orig	2007-06-04 01:13:05.000000000 +0400
+++ src/guile-fcgi.c	2007-06-04 01:13:16.000000000 +0400
@@ -43,11 +43,11 @@
 /****************************************************************************/
 
 static long tagFCGX_Stream;
-#define SCM_FCGX_STREAMP(smob) (SCM_NIMP(smob) && SCM_CAR(smob)==tagFCGX_Stream)
+#define SCM_FCGX_STREAMP(smob) (SCM_NIMP(smob) && (long)(SCM_CAR(smob))==tagFCGX_Stream)
 #define SCM_FCGX_STREAM(smob) ((FCGX_Stream*)SCM_CDR(smob))
 
 static long tagFCGX_Request;
-#define SCM_FCGX_REQUESTP(smob) (SCM_NIMP(smob) && SCM_CAR(smob)==tagFCGX_Request)
+#define SCM_FCGX_REQUESTP(smob) (SCM_NIMP(smob) && (long)(SCM_CAR(smob))==tagFCGX_Request)
 #define SCM_FCGX_REQUEST(smob) (FCGX_Request*)SCM_CDR(smob)
 
 long fcgi_ptype=0;
@@ -524,7 +524,7 @@
 {
   SCM_ASSERT((SCM_FCGX_STREAMP(stream)), stream, SCM_ARG1, s_scm_FCGX_FFlush);
 
-  return (-1==FCGX_FFlush(SCM_FCGX_STREAM(stream)));
+  return (void*)(-1==FCGX_FFlush(SCM_FCGX_STREAM(stream)));
 }
 /*DLLAPI int FCGX_FClose(FCGX_Stream *stream);*/
 SCM_DEFINE (scm_FCGX_FClose,"FCGX:FClose",1,0,0,
@@ -544,7 +544,7 @@
 {
   SCM_ASSERT((SCM_FCGX_STREAMP(stream)), stream, SCM_ARG1, s_scm_FCGX_FClose);
 
-  return (-1==FCGX_FClose(SCM_FCGX_STREAM(stream)));
+  return (void*)(-1==FCGX_FClose(SCM_FCGX_STREAM(stream)));
 }
 /*DLLAPI int FCGX_GetError(FCGX_Stream *stream);*/
 SCM_DEFINE (scm_FCGX_GetError,"FCGX:GetError",1,0,0,
@@ -702,7 +702,7 @@
 
 static SCM
 fcgi_port_mark(SCM port){
-  scm_gc_mark (SCM_STREAM(port));
+  scm_gc_mark ((void*)SCM_STREAM(port));
   return SCM_BOOL_F;
 }
 
@@ -842,12 +842,12 @@
           (SCM port),"")
 {
   SCM_ASSERT(SCM_PORTP(port) && 
-	  ((SCM_CAR(port) & fcgi_ptype)==fcgi_ptype),
+	  (((long)SCM_CAR(port) & fcgi_ptype)==fcgi_ptype),
 	  port,
 	  SCM_ARG1,
 	  s_scm_fcgi_make_stream);
 
-  return SCM_STREAM(port);
+  return (void*)SCM_STREAM(port);
 }
 
 void