diff options
62 files changed, 23 insertions, 64 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 31cee4d36..cb5b40732 100644 --- 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 cd4f182ff..5e75c8e95 100644 --- a/libguile/alist.c +++ b/libguile/alist.c @@ -43,7 +43,6 @@ gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ -#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 c388dfaf0..faa0f4613 100644 --- a/libguile/arbiters.c +++ b/libguile/arbiters.c @@ -44,7 +44,6 @@ -#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 d1f834df0..e57b821ae 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -44,7 +44,6 @@ -#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 7661c19d6..d0f4820ba 100644 --- 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 9fd89a611..7bda2139f 100644 --- a/libguile/boolean.c +++ b/libguile/boolean.c @@ -44,7 +44,6 @@ -#include <stdio.h> #include "libguile/_scm.h" #include "libguile/validate.h" diff --git a/libguile/chars.c b/libguile/chars.c index 9ca1fac6b..c47705645 100644 --- a/libguile/chars.c +++ b/libguile/chars.c @@ -44,7 +44,6 @@ -#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 3b07e1f06..28985e060 100644 --- a/libguile/continuations.c +++ b/libguile/continuations.c @@ -44,7 +44,6 @@ -#include <stdio.h> #include <string.h> #include "libguile/_scm.h" diff --git a/libguile/debug-malloc.c b/libguile/debug-malloc.c index 8b2a08ceb..4240f7d8b 100644 --- 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 275c05bc4..354ddd6e6 100644 --- 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 647c044ab..101107c70 100644 --- a/libguile/dynwind.c +++ b/libguile/dynwind.c @@ -44,7 +44,6 @@ -#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 275fa717f..8eda34047 100644 --- a/libguile/eq.c +++ b/libguile/eq.c @@ -43,7 +43,6 @@ gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ -#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 93a4a166a..4c58a54df 100644 --- 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 4b4320901..d37b83ce9 100644 --- a/libguile/feature.c +++ b/libguile/feature.c @@ -44,7 +44,6 @@ -#include <stdio.h> #ifdef HAVE_STRING_H #include <string.h> #endif diff --git a/libguile/filesys.h b/libguile/filesys.h index c71d844f2..549d71a05 100644 --- a/libguile/filesys.h +++ b/libguile/filesys.h @@ -47,7 +47,6 @@ gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ -#include <stdio.h> #include "libguile/__scm.h" diff --git a/libguile/gc.c b/libguile/gc.c index 038822a50..bf554aa05 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -51,6 +51,7 @@ #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 0001cf824..d05105a63 100644 --- 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 2f6a036aa..e18fea8a8 100644 --- 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 6e7eab19c..21510c4e9 100644 --- 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 46f6f97ac..71c8f9350 100644 --- 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 5374a0143..6f43cf734 100644 --- a/libguile/gh_funcs.c +++ b/libguile/gh_funcs.c @@ -43,8 +43,6 @@ /* 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 c60032ee2..41ca3a724 100644 --- a/libguile/gh_io.c +++ b/libguile/gh_io.c @@ -40,8 +40,6 @@ * If you do not wish that, delete this exception notice. */ -#include <stdio.h> - #include "libguile/gh.h" void diff --git a/libguile/gh_list.c b/libguile/gh_list.c index 4054dc5d9..7bdd9440d 100644 --- 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 fe5fc140a..1bd234b50 100644 --- 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 8f8dfbb7a..f2bb819ec 100644 --- a/libguile/hash.c +++ b/libguile/hash.c @@ -44,7 +44,6 @@ -#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 1f001f236..23fba77fe 100644 --- a/libguile/hashtab.c +++ b/libguile/hashtab.c @@ -44,7 +44,6 @@ -#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 d18213c4c..d7bda8812 100644 --- 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. */ -#include <stdio.h> #include <limits.h> #include <string.h> diff --git a/libguile/keywords.c b/libguile/keywords.c index 8af562ec5..84d942dfa 100644 --- a/libguile/keywords.c +++ b/libguile/keywords.c @@ -44,7 +44,6 @@ -#include <stdio.h> #include <string.h> #include "libguile/_scm.h" diff --git a/libguile/list.c b/libguile/list.c index 6493df8de..141d48a99 100644 --- a/libguile/list.c +++ b/libguile/list.c @@ -43,7 +43,6 @@ gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ -#include <stdio.h> #include "libguile/_scm.h" #include "libguile/eq.h" diff --git a/libguile/load.c b/libguile/load.c index 8be776db7..496f2b8a5 100644 --- a/libguile/load.c +++ b/libguile/load.c @@ -44,7 +44,6 @@ -#include <stdio.h> #include <string.h> #include "libguile/_scm.h" diff --git a/libguile/mallocs.c b/libguile/mallocs.c index f0f9606c6..035539f9b 100644 --- a/libguile/mallocs.c +++ b/libguile/mallocs.c @@ -22,7 +22,6 @@ -#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 408400f58..ba9599671 100644 --- a/libguile/net_db.c +++ b/libguile/net_db.c @@ -51,7 +51,6 @@ */ -#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 2b2cedbff..8841dbd50 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -44,7 +44,6 @@ -#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 04b3106d8..17f935e94 100644 --- a/libguile/objprop.c +++ b/libguile/objprop.c @@ -44,7 +44,6 @@ -#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 4d94bbcd2..376991017 100644 --- a/libguile/objprop.h +++ b/libguile/objprop.h @@ -44,7 +44,6 @@ * If you do not wish that, delete this exception notice. */ -#include <stdio.h> #include "libguile/__scm.h" diff --git a/libguile/options.c b/libguile/options.c index 5bd622d30..c5260e669 100644 --- a/libguile/options.c +++ b/libguile/options.c @@ -47,7 +47,6 @@ -#include <stdio.h> #include "libguile/_scm.h" #include "libguile/strings.h" diff --git a/libguile/pairs.c b/libguile/pairs.c index 26ab6330f..070d08da2 100644 --- a/libguile/pairs.c +++ b/libguile/pairs.c @@ -44,7 +44,6 @@ -#include <stdio.h> #include "libguile/_scm.h" #include "libguile/validate.h" diff --git a/libguile/print.c b/libguile/print.c index 1e86d854d..0d822c58b 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -44,7 +44,6 @@ -#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 f0ec8dd2e..791dce74b 100644 --- a/libguile/procprop.c +++ b/libguile/procprop.c @@ -44,7 +44,6 @@ -#include <stdio.h> #include "libguile/_scm.h" #include "libguile/alist.h" diff --git a/libguile/procs.c b/libguile/procs.c index 44a869bfb..0e59df8ad 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -44,7 +44,6 @@ -#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 5da889138..b33343862 100644 --- a/libguile/properties.c +++ b/libguile/properties.c @@ -44,7 +44,6 @@ -#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 92aa19681..21e222c5b 100644 --- a/libguile/ramap.c +++ b/libguile/ramap.c @@ -51,7 +51,6 @@ -#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 da18e9119..5fafba687 100644 --- 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 88ae8b0ca..6779f6779 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -44,7 +44,7 @@ -#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 415169915..baa597e31 100644 --- a/libguile/scmsigs.c +++ b/libguile/scmsigs.c @@ -44,7 +44,6 @@ -#include <stdio.h> #include <signal.h> #include "libguile/_scm.h" diff --git a/libguile/simpos.c b/libguile/simpos.c index 041fe70d1..db0c04beb 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -44,7 +44,6 @@ -#include <stdio.h> #include "libguile/_scm.h" #include "libguile/scmsigs.h" diff --git a/libguile/socket.c b/libguile/socket.c index a637aa7ea..52e0fff57 100644 --- a/libguile/socket.c +++ b/libguile/socket.c @@ -44,8 +44,6 @@ -#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 659c901bd..2d3ca3c1f 100644 --- 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 341c9a670..41cd36cc2 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -47,7 +47,6 @@ -#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 3b31ff263..bede70e86 100644 --- a/libguile/stackchk.c +++ b/libguile/stackchk.c @@ -44,7 +44,6 @@ -#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 e223d4ff1..92873a469 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -48,7 +48,6 @@ -#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 3874b4a05..e2277fe39 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -44,7 +44,6 @@ -#include <stdio.h> #include <string.h> #include "libguile/_scm.h" diff --git a/libguile/strop.c b/libguile/strop.c index 1ad572283..01665dd97 100644 --- a/libguile/strop.c +++ b/libguile/strop.c @@ -23,7 +23,6 @@ Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -#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 22f60db49..2dee2b800 100644 --- a/libguile/strorder.c +++ b/libguile/strorder.c @@ -43,7 +43,6 @@ gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ -#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 52af06f2e..3c15deb53 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -44,7 +44,6 @@ -#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 76e15cb8a..2d6d081ea 100644 --- a/libguile/symbols.c +++ b/libguile/symbols.c @@ -44,7 +44,6 @@ -#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 db385905f..095572d1a 100644 --- a/libguile/tag.c +++ b/libguile/tag.c @@ -43,7 +43,6 @@ gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ -#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 85f38ca96..2bf5180f6 100644 --- 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 1a801317b..7e4e1a8bc 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -52,6 +52,7 @@ #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 a088be209..4ce7d6110 100644 --- a/libguile/variable.c +++ b/libguile/variable.c @@ -44,7 +44,6 @@ -#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 25c7c8a36..bd1b7ba85 100644 --- a/libguile/vectors.c +++ b/libguile/vectors.c @@ -44,7 +44,6 @@ -#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 f340922fe..91167d230 100644 --- a/libguile/weaks.c +++ b/libguile/weaks.c @@ -43,7 +43,6 @@ gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ -#include <stdio.h> #include "libguile/_scm.h" #include "libguile/vectors.h" |