* fports.c (local_pclose): New function.

[bpt/guile.git] / libguile / fports.c

diff --git a/libguile/fports.c b/libguile/fports.c
index 005d5b9..49e28c7 100644 (file)
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -363,6 +363,18 @@ local_ffwrite (ptr, size, nitems, fp)
   return ffwrite (ptr, size, nitems, fp);
 }
 
+/* On SunOS, there's no declaration for pclose in the headers, so
+   putting it directly in the initializer for scm_pipob doesn't really
+   fly.  We could add an extern declaration for it, but then it'll
+   mismatch on some systems that do have a declaration.  So we just
+   wrap it up this way.  */
+static int
+local_pclose (fp)
+     FILE * fp;
+{
+  return pclose (fp);
+}
+
 \f
 scm_ptobfuns scm_fptob =
 {
@@ -378,12 +390,11 @@ scm_ptobfuns scm_fptob =
   (int (*) SCM_P ((SCM))) local_fclose
 };
 
-/* {Pipe ports}
- */
+/* {Pipe ports} */
 scm_ptobfuns scm_pipob =
 {
   scm_mark0,
-  (int (*) SCM_P ((SCM))) pclose,  
+  (int (*) SCM_P ((SCM))) local_pclose,  
   scm_prinport,
   0,
   (int (*) SCM_P ((int, SCM))) local_fputc,
@@ -391,7 +402,7 @@ scm_ptobfuns scm_pipob =
   (scm_sizet (*) SCM_P ((char *, scm_sizet, scm_sizet, SCM))) local_ffwrite,
   (int (*) SCM_P ((SCM))) local_fflush,
   (int (*) SCM_P ((SCM))) scm_fgetc,
-  (int (*) SCM_P ((SCM))) pclose
+  (int (*) SCM_P ((SCM))) local_pclose
 };
 
 void