Remove #include <stdio.h>. Add #include <string.h>.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 31cee4d..cb5b407 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,20 @@
+2001-03-09  Keisuke Nishida  <kxn30@po.cwru.edu>
+
+       * alist.c, arbiters.c, async.c, backtrace.c, boolean.c, chars.c,
+       continuations.c, debug-malloc.c, debug.c, dynwind.c, eq.c, eval.c,
+       feature.c, filesys.h, gc_os_dep.c, gh_data.c, gh_eval.c,
+       gh_funcs.c, gh_io.c, gh_list.c, gh_predicates.c, hash.c,
+       hashtab.c, iselect.c, keywords.c, list.c, load.c, mallocs.c,
+       net_db.c, numbers.c, objprop.c, objprop.h, options.c, pairs.c,
+       print.c, procprop.c, procs.c, properties.c, ramap.c,
+       regex-posix.c, root.c, scmsigs.c, simpos.c, socket.c, srcprop.c,
+       stackchk.c, stacks.c, strings.c, strop.c, strorder.c, struct.c,
+       symbols.c, tag.c, threads.c, variable.c, vectors.c, weaks.c:
+       Remove #include <stdio.h>       
+       * gc.c, gdbint.c, root.c, sort.c, unif.c: Add #include <string.h>.
+
+       * procs.c (scm_make_subr_opt): Init symcell to avoid warning.
+
 2001-03-09  Martin Grabmueller  <mgrabmue@cs.tu-berlin.de>
 
        * posix.c (scm_gethostname): Set initial name length to 256 for

diff --git a/libguile/alist.c b/libguile/alist.c
index cd4f182..5e75c8e 100644 (file)
--- a/libguile/alist.c
+++ b/libguile/alist.c
@@ -43,7 +43,6 @@
    gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
 
 \f
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/eq.h"
 #include "libguile/list.h"

diff --git a/libguile/arbiters.c b/libguile/arbiters.c
index c388dfa..faa0f46 100644 (file)
--- a/libguile/arbiters.c
+++ b/libguile/arbiters.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/ports.h"
 #include "libguile/smob.h"

diff --git a/libguile/async.c b/libguile/async.c
index d1f834d..e57b821 100644 (file)
--- a/libguile/async.c
+++ b/libguile/async.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include <signal.h>
 #include "libguile/_scm.h"
 #include "libguile/eval.h"

diff --git a/libguile/backtrace.c b/libguile/backtrace.c
index 7661c19..d0f4820 100644 (file)
--- a/libguile/backtrace.c
+++ b/libguile/backtrace.c
@@ -47,7 +47,6 @@
    gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
 
 
-#include <stdio.h>
 #include <ctype.h>
 
 #include "libguile/_scm.h"

diff --git a/libguile/boolean.c b/libguile/boolean.c
index 9fd89a6..7bda213 100644 (file)
--- a/libguile/boolean.c
+++ b/libguile/boolean.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 
 #include "libguile/validate.h"

diff --git a/libguile/chars.c b/libguile/chars.c
index 9ca1fac..c477056 100644 (file)
--- a/libguile/chars.c
+++ b/libguile/chars.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include <ctype.h>
 #include "libguile/_scm.h"
 #include "libguile/validate.h"

diff --git a/libguile/continuations.c b/libguile/continuations.c
index 3b07e1f..28985e0 100644 (file)
--- a/libguile/continuations.c
+++ b/libguile/continuations.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include <string.h>
 
 #include "libguile/_scm.h"

diff --git a/libguile/debug-malloc.c b/libguile/debug-malloc.c
index 8b2a08c..4240f7d 100644 (file)
--- a/libguile/debug-malloc.c
+++ b/libguile/debug-malloc.c
@@ -40,7 +40,6 @@
  * If you do not wish that, delete this exception notice.  */
 
 #include <string.h>
-#include <stdio.h>
 
 #include "libguile/_scm.h"
 #include "libguile/alist.h"

diff --git a/libguile/debug.c b/libguile/debug.c
index 275c05b..354ddd6 100644 (file)
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -47,7 +47,6 @@
    gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
 
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/eval.h"
 #include "libguile/stackchk.h"

diff --git a/libguile/dynwind.c b/libguile/dynwind.c
index 647c044..101107c 100644 (file)
--- a/libguile/dynwind.c
+++ b/libguile/dynwind.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/eval.h"
 #include "libguile/alist.h"

diff --git a/libguile/eq.c b/libguile/eq.c
index 275fa71..8eda340 100644 (file)
--- a/libguile/eq.c
+++ b/libguile/eq.c
@@ -43,7 +43,6 @@
    gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
 
 \f
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/ramap.h"
 #include "libguile/stackchk.h"

diff --git a/libguile/eval.c b/libguile/eval.c
index 93a4a16..4c58a54 100644 (file)
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -78,7 +78,6 @@ char *alloca ();
 # endif
 #endif
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/debug.h"
 #include "libguile/dynwind.h"

diff --git a/libguile/feature.c b/libguile/feature.c
index 4b43209..d37b83c 100644 (file)
--- a/libguile/feature.c
+++ b/libguile/feature.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #ifdef HAVE_STRING_H
 #include <string.h>
 #endif

diff --git a/libguile/filesys.h b/libguile/filesys.h
index c71d844..549d71a 100644 (file)
--- a/libguile/filesys.h
+++ b/libguile/filesys.h
@@ -47,7 +47,6 @@
    gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
 \f
 
-#include <stdio.h>
 #include "libguile/__scm.h"
 
 \f

diff --git a/libguile/gc.c b/libguile/gc.c
index 038822a..bf554aa 100644 (file)
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -51,6 +51,7 @@
 
 \f
 #include <stdio.h>
+#include <string.h>
 #include "libguile/_scm.h"
 #include "libguile/eval.h"
 #include "libguile/stime.h"

diff --git a/libguile/gc_os_dep.c b/libguile/gc_os_dep.c
index 0001cf8..d05105a 100644 (file)
--- a/libguile/gc_os_dep.c
+++ b/libguile/gc_os_dep.c
@@ -1419,7 +1419,6 @@ word x;
 #   endif
 # endif
 
-# include <stdio.h>
 # include <signal.h>
 
 /* Blatantly OS dependent routines, except for those that are related  */

diff --git a/libguile/gdbint.c b/libguile/gdbint.c
index 2f6a036..e18fea8 100644 (file)
--- a/libguile/gdbint.c
+++ b/libguile/gdbint.c
@@ -50,6 +50,7 @@
 #include "libguile/_scm.h"
 
 #include <stdio.h>
+#include <string.h>
 #ifdef HAVE_UNISTD_H
 #include <unistd.h>
 #endif

diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index 6e7eab1..21510c4 100644 (file)
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -41,8 +41,6 @@
 
 /* data initialization and C<->Scheme data conversion */
 
-#include <stdio.h>
-
 #include "libguile/gh.h"
 #ifdef HAVE_STRING_H
 #include <string.h>

diff --git a/libguile/gh_eval.c b/libguile/gh_eval.c
index 46f6f97..71c8f93 100644 (file)
--- a/libguile/gh_eval.c
+++ b/libguile/gh_eval.c
@@ -42,8 +42,6 @@
 
 /* routines to evaluate Scheme code */
 
-#include <stdio.h>
-
 #include "libguile/gh.h"
 
 typedef SCM (*gh_eval_t) (void *data, SCM jmpbuf);

diff --git a/libguile/gh_funcs.c b/libguile/gh_funcs.c
index 5374a01..6f43cf7 100644 (file)
--- a/libguile/gh_funcs.c
+++ b/libguile/gh_funcs.c
@@ -43,8 +43,6 @@
 \f
 /* Defining Scheme functions implemented by C functions --- subrs.  */
 
-#include <stdio.h>
-
 #include "libguile/gh.h"
 
 /* allows you to define new scheme primitives written in C */

diff --git a/libguile/gh_io.c b/libguile/gh_io.c
index c60032e..41ca3a7 100644 (file)
--- a/libguile/gh_io.c
+++ b/libguile/gh_io.c
@@ -40,8 +40,6 @@
  * If you do not wish that, delete this exception notice.  */
 \f
 
-#include <stdio.h>
-
 #include "libguile/gh.h"
 
 void 

diff --git a/libguile/gh_list.c b/libguile/gh_list.c
index 4054dc5..7bdd944 100644 (file)
--- a/libguile/gh_list.c
+++ b/libguile/gh_list.c
@@ -42,8 +42,6 @@
 
 /* list manipulation */
 
-#include <stdio.h>
-
 #include "libguile/gh.h"
 
 /* returns the length of a list */

diff --git a/libguile/gh_predicates.c b/libguile/gh_predicates.c
index fe5fc14..1bd234b 100644 (file)
--- a/libguile/gh_predicates.c
+++ b/libguile/gh_predicates.c
@@ -42,8 +42,6 @@
 
 /* type predicates and equality predicates */
 
-#include <stdio.h>
-
 #include "libguile/gh.h"
 
 /* type predicates: tell you if an SCM object has a given type */

diff --git a/libguile/hash.c b/libguile/hash.c
index 8f8dfbb..f2bb819 100644 (file)
--- a/libguile/hash.c
+++ b/libguile/hash.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/chars.h"
 #include "libguile/ports.h"

diff --git a/libguile/hashtab.c b/libguile/hashtab.c
index 1f001f2..23fba77 100644 (file)
--- a/libguile/hashtab.c
+++ b/libguile/hashtab.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/alist.h"
 #include "libguile/hash.h"

diff --git a/libguile/iselect.c b/libguile/iselect.c
index d18213c..d7bda88 100644 (file)
--- a/libguile/iselect.c
+++ b/libguile/iselect.c
@@ -39,7 +39,6 @@
  * whether to permit this exception to apply to your modifications.
  * If you do not wish that, delete this exception notice.  */
 \f
-#include <stdio.h>
 #include <limits.h>
 #include <string.h>
 

diff --git a/libguile/keywords.c b/libguile/keywords.c
index 8af562e..84d942d 100644 (file)
--- a/libguile/keywords.c
+++ b/libguile/keywords.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include <string.h>
 
 #include "libguile/_scm.h"

diff --git a/libguile/list.c b/libguile/list.c
index 6493df8..141d48a 100644 (file)
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -43,7 +43,6 @@
    gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
 
 \f
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/eq.h"
 

diff --git a/libguile/load.c b/libguile/load.c
index 8be776d..496f2b8 100644 (file)
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include <string.h>
 
 #include "libguile/_scm.h"

diff --git a/libguile/mallocs.c b/libguile/mallocs.c
index f0f9606..035539f 100644 (file)
--- a/libguile/mallocs.c
+++ b/libguile/mallocs.c
@@ -22,7 +22,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/ports.h"
 #include "libguile/smob.h"

diff --git a/libguile/net_db.c b/libguile/net_db.c
index 408400f..ba95996 100644 (file)
--- a/libguile/net_db.c
+++ b/libguile/net_db.c
@@ -51,7 +51,6 @@
  */
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/feature.h"
 #include "libguile/strings.h"

diff --git a/libguile/numbers.c b/libguile/numbers.c
index 2b2cedb..8841dbd 100644 (file)
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include <math.h>
 #include "libguile/_scm.h"
 #include "libguile/feature.h"

diff --git a/libguile/objprop.c b/libguile/objprop.c
index 04b3106..17f935e 100644 (file)
--- a/libguile/objprop.c
+++ b/libguile/objprop.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/hashtab.h"
 #include "libguile/alist.h"

diff --git a/libguile/objprop.h b/libguile/objprop.h
index 4d94bbc..3769910 100644 (file)
--- a/libguile/objprop.h
+++ b/libguile/objprop.h
@@ -44,7 +44,6 @@
  * If you do not wish that, delete this exception notice.  */
 \f
 
-#include <stdio.h>
 #include "libguile/__scm.h"
 
 \f

diff --git a/libguile/options.c b/libguile/options.c
index 5bd622d..c5260e6 100644 (file)
--- a/libguile/options.c
+++ b/libguile/options.c
@@ -47,7 +47,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/strings.h"
 

diff --git a/libguile/pairs.c b/libguile/pairs.c
index 26ab633..070d08d 100644 (file)
--- a/libguile/pairs.c
+++ b/libguile/pairs.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/validate.h"
 

diff --git a/libguile/print.c b/libguile/print.c
index 1e86d85..0d822c5 100644 (file)
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/chars.h"
 #include "libguile/continuations.h"

diff --git a/libguile/procprop.c b/libguile/procprop.c
index f0ec8dd..791dce7 100644 (file)
--- a/libguile/procprop.c
+++ b/libguile/procprop.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 
 #include "libguile/alist.h"

diff --git a/libguile/procs.c b/libguile/procs.c
index 44a869b..0e59df8 100644 (file)
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 
 #include "libguile/objects.h"
@@ -95,6 +94,7 @@ scm_make_subr_opt (const char *name, int type, SCM (*fcn) (), int set)
     }
   else
     {
+      symcell = SCM_BOOL_F; /* to avoid warning */
       symbol = scm_str2symbol (name);
     }
   

diff --git a/libguile/properties.c b/libguile/properties.c
index 5da8891..b333438 100644 (file)
--- a/libguile/properties.c
+++ b/libguile/properties.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/hashtab.h"
 #include "libguile/alist.h"

diff --git a/libguile/ramap.c b/libguile/ramap.c
index 92aa196..21e222c 100644 (file)
--- a/libguile/ramap.c
+++ b/libguile/ramap.c
@@ -51,7 +51,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/strings.h"
 #include "libguile/unif.h"

diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c
index da18e91..5fafba6 100644 (file)
--- a/libguile/regex-posix.c
+++ b/libguile/regex-posix.c
@@ -53,7 +53,6 @@
    libraries which do not agree with the Spencer implementation may
    produce varying behavior.  Sigh. */
 
-#include <stdio.h>
 #include <sys/types.h>
 
 #include "libguile/_scm.h"

diff --git a/libguile/root.c b/libguile/root.c
index 88ae8b0..6779f67 100644 (file)
--- a/libguile/root.c
+++ b/libguile/root.c
@@ -44,7 +44,7 @@
 
 \f
 
-#include <stdio.h>
+#include <string.h>
 #include "libguile/_scm.h"
 #include "libguile/stackchk.h"
 #include "libguile/dynwind.h"

diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c
index 4151699..baa597e 100644 (file)
--- a/libguile/scmsigs.c
+++ b/libguile/scmsigs.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include <signal.h>
 #include "libguile/_scm.h"
 

diff --git a/libguile/simpos.c b/libguile/simpos.c
index 041fe70..db0c04b 100644 (file)
--- a/libguile/simpos.c
+++ b/libguile/simpos.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 
 #include "libguile/scmsigs.h"

diff --git a/libguile/socket.c b/libguile/socket.c
index a637aa7..52e0fff 100644 (file)
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -44,8 +44,6 @@
 
 \f
 
-#include <stdio.h>
-
 #include "libguile/_scm.h"
 #include "libguile/unif.h"
 #include "libguile/feature.h"

diff --git a/libguile/sort.c b/libguile/sort.c
index 659c901..2d3ca3c 100644 (file)
--- a/libguile/sort.c
+++ b/libguile/sort.c
@@ -78,6 +78,7 @@ char *alloca ();
 # endif
 #endif
 
+#include <string.h>
 #include "libguile/_scm.h"
 
 #include "libguile/eval.h"

diff --git a/libguile/srcprop.c b/libguile/srcprop.c
index 341c9a6..41cd36c 100644 (file)
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -47,7 +47,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/smob.h"
 #include "libguile/alist.h"

diff --git a/libguile/stackchk.c b/libguile/stackchk.c
index 3b31ff2..bede70e 100644 (file)
--- a/libguile/stackchk.c
+++ b/libguile/stackchk.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/ports.h"
 #include "libguile/root.h"

diff --git a/libguile/stacks.c b/libguile/stacks.c
index e223d4f..92873a4 100644 (file)
--- a/libguile/stacks.c
+++ b/libguile/stacks.c
@@ -48,7 +48,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/eval.h"
 #include "libguile/debug.h"

diff --git a/libguile/strings.c b/libguile/strings.c
index 3874b4a..e2277fe 100644 (file)
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include <string.h>
 
 #include "libguile/_scm.h"

diff --git a/libguile/strop.c b/libguile/strop.c
index 1ad5722..01665dd 100644 (file)
--- a/libguile/strop.c
+++ b/libguile/strop.c
@@ -23,7 +23,6 @@ Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/chars.h"
 #include "libguile/strings.h"

diff --git a/libguile/strorder.c b/libguile/strorder.c
index 22f60db..2dee2b8 100644 (file)
--- a/libguile/strorder.c
+++ b/libguile/strorder.c
@@ -43,7 +43,6 @@
    gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/chars.h"
 #include "libguile/strings.h"

diff --git a/libguile/struct.c b/libguile/struct.c
index 52af06f..3c15deb 100644 (file)
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/chars.h"
 #include "libguile/eval.h"

diff --git a/libguile/symbols.c b/libguile/symbols.c
index 76e15cb..2d6d081 100644 (file)
--- a/libguile/symbols.c
+++ b/libguile/symbols.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/chars.h"
 #include "libguile/eval.h"

diff --git a/libguile/tag.c b/libguile/tag.c
index db38590..095572d 100644 (file)
--- a/libguile/tag.c
+++ b/libguile/tag.c
@@ -43,7 +43,6 @@
    gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
 
 \f
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/chars.h"
 #include "libguile/struct.h"

diff --git a/libguile/threads.c b/libguile/threads.c
index 85f38ca..2bf5180 100644 (file)
--- a/libguile/threads.c
+++ b/libguile/threads.c
@@ -62,7 +62,6 @@
     * second #inclusion
 */
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/dynwind.h"
 #include "libguile/smob.h"

diff --git a/libguile/unif.c b/libguile/unif.c
index 1a80131..7e4e1a8 100644 (file)
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -52,6 +52,7 @@
 \f
 
 #include <stdio.h>
+#include <string.h>
 #include "libguile/_scm.h"
 #include "libguile/chars.h"
 #include "libguile/eval.h"

diff --git a/libguile/variable.c b/libguile/variable.c
index a088be2..4ce7d61 100644 (file)
--- a/libguile/variable.c
+++ b/libguile/variable.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/eq.h"
 #include "libguile/ports.h"

diff --git a/libguile/vectors.c b/libguile/vectors.c
index 25c7c8a..bd1b7ba 100644 (file)
--- a/libguile/vectors.c
+++ b/libguile/vectors.c
@@ -44,7 +44,6 @@
 
 \f
 
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/eq.h"
 #include "libguile/root.h"

diff --git a/libguile/weaks.c b/libguile/weaks.c
index f340922..91167d2 100644 (file)
--- a/libguile/weaks.c
+++ b/libguile/weaks.c
@@ -43,7 +43,6 @@
    gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
 
 \f
-#include <stdio.h>
 #include "libguile/_scm.h"
 #include "libguile/vectors.h"