Thanks to Shiro Kawai:

* gc.c (scm_gc_mark): Pass NULL to scm_wta as the subroutine name.
* ports.h (scm_ptobfuns): The fgets method returns a char *, not
an SCM.

diff --git a/libguile/gc.c b/libguile/gc.c
index ef75f34..dfe5732 100644 (file)
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -580,7 +580,7 @@ gc_mark_loop:
 
 gc_mark_nimp:
   if (SCM_NCELLP (ptr))
-    scm_wta (ptr, "rogue pointer in heap", SCM_BOOL_F);
+    scm_wta (ptr, "rogue pointer in heap", NULL);
 
   switch (SCM_TYP7 (ptr))
     {

diff --git a/libguile/ports.h b/libguile/ports.h
index cb9f408..842ba50 100644 (file)
--- a/libguile/ports.h
+++ b/libguile/ports.h
@@ -149,7 +149,7 @@ typedef struct scm_ptobfuns
   scm_sizet (*fwrite) SCM_P ((char *ptr, scm_sizet size, scm_sizet nitems, SCM stream));
   int (*fflush) SCM_P ((SCM stream));
   int (*fgetc) SCM_P ((SCM stream));
-  SCM (*fgets) SCM_P ((SCM stream));
+  char (*fgets) SCM_P ((SCM stream));
   int (*fclose) SCM_P ((SCM stream));
 } scm_ptobfuns;