* __scm.h, alist.c, alist.h, append.c, append.h, appinit.c,

arbiters.c, arbiters.h, async.c, async.h, boolean.c, boolean.h,
chars.c, chars.h, continuations.c, continuations.h, debug.c,
debug.h, dynwind.c, dynwind.h, eq.c, eq.h, error.c, eval.c,
eval.h, extchrs.c, extchrs.h, fdsocket.c, fdsocket.h, filesys.c,
filesys.h, fports.c, fports.h, gc.c, gdb_interface.h, gdbint.c,
gdbint.h, genio.c, genio.h, gscm.c, gscm.h, gsubr.c, gsubr.h,
hash.c, hash.h, hashtab.c, hashtab.h, init.c, ioext.c, ioext.h,
kw.c, kw.h, libguile.h, mallocs.c, mallocs.h, markers.c,
markers.h, mbstrings.c, mbstrings.h, numbers.c, numbers.h,
objprop.c, objprop.h, options.c, options.h, pairs.c, pairs.h,
ports.c, ports.h, posix.c, posix.h, print.c, print.h, procprop.c,
procprop.h, procs.c, procs.h, ramap.c, ramap.h, read.c, read.h,
root.c, scmsigs.c, scmsigs.h, sequences.c, sequences.h, simpos.c,
simpos.h, smob.c, socket.c, socket.h, srcprop.c, srcprop.h,
stackchk.c, stackchk.h, stime.c, stime.h, strings.c, strings.h,
strop.c, strop.h, strorder.c, strorder.h, strports.c, strports.h,
struct.c, struct.h, symbols.c, symbols.h, tag.c, tag.h, unif.c,
unif.h, variable.c, variable.h, vectors.c, vectors.h, version.c,
version.h, vports.c, vports.h, weaks.c, weaks.h: Use SCM_P to
declare functions with prototypes.  (Patch thanks to Marius
Vollmer.)

1 files changed, 5 insertions, 25 deletions

diff --git a/libguile/arbiters.c b/libguile/arbiters.c
index da7b5dccc..480ad7451 100644
--- a/libguile/arbiters.c
+++ b/libguile/arbiters.c
@@ -56,16 +56,12 @@
 
 static long scm_tc16_arbiter;
 
-#ifdef __STDC__
-static int 
-prinarb (SCM exp, SCM port, scm_print_state *pstate)
-#else
+
 static int 
 prinarb (exp, port, pstate)
      SCM exp;
      SCM port;
      scm_print_state *pstate;
-#endif
 {
   scm_gen_puts (scm_regular_string, "#<arbiter ", port);
   if (SCM_CAR (exp) & (1L << 16))
@@ -81,14 +77,10 @@ static scm_smobfuns arbsmob =
 };
 
 SCM_PROC(s_make_arbiter, "make-arbiter", 1, 0, 0, scm_make_arbiter);
-#ifdef __STDC__
-SCM 
-scm_make_arbiter (SCM name)
-#else
+
 SCM 
 scm_make_arbiter (name)
      SCM name;
-#endif
 {
   register SCM z;
   SCM_NEWCELL (z);
@@ -98,14 +90,10 @@ scm_make_arbiter (name)
 }
 
 SCM_PROC(s_try_arbiter, "try-arbiter", 1, 0, 0, scm_try_arbiter);
-#ifdef __STDC__
-SCM 
-scm_try_arbiter (SCM arb)
-#else
+
 SCM 
 scm_try_arbiter (arb)
      SCM arb;
-#endif
 {
   SCM_ASSERT ((SCM_TYP16 (arb) == scm_tc16_arbiter), arb, SCM_ARG1, s_try_arbiter);
   SCM_DEFER_INTS;
@@ -122,14 +110,10 @@ scm_try_arbiter (arb)
 
 
 SCM_PROC(s_release_arbiter, "release-arbiter", 1, 0, 0, scm_release_arbiter);
-#ifdef __STDC__
-SCM 
-scm_release_arbiter (SCM arb)
-#else
+
 SCM 
 scm_release_arbiter (arb)
      SCM arb;
-#endif
 {
   SCM_ASSERT ((SCM_TYP16 (arb) == scm_tc16_arbiter), arb, SCM_ARG1, s_release_arbiter);
   if (!(SCM_CAR (arb) & (1L << 16)))
@@ -139,13 +123,9 @@ scm_release_arbiter (arb)
 }
 
 
-#ifdef __STDC__
-void
-scm_init_arbiters (void)
-#else
+
 void
 scm_init_arbiters ()
-#endif
 {
   scm_tc16_arbiter = scm_newsmob (&arbsmob);
 #include "arbiters.x"