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

[bpt/guile.git] / libguile / async.h

diff --git a/libguile/async.h b/libguile/async.h
index 26ebee9..217603b 100644 (file)
--- a/libguile/async.h
+++ b/libguile/async.h
@@ -52,39 +52,20 @@
 extern unsigned int scm_mask_ints;
 
 \f
-#ifdef __STDC__
-extern void scm_async_click (void);
-extern void scm_switch (void);
-extern SCM scm_async (SCM thunk);
-extern SCM scm_system_async (SCM thunk);
-extern SCM scm_async_mark (SCM a);
-extern SCM scm_system_async_mark (SCM a);
-extern SCM scm_run_asyncs (SCM list_of_a);
-extern SCM scm_noop (SCM args);
-extern SCM scm_set_tick_rate (SCM n);
-extern SCM scm_set_switch_rate (SCM n);
-extern SCM scm_take_signal (int n);
-extern SCM scm_unmask_signals (void);
-extern SCM scm_mask_signals (void);
-extern void scm_init_async (void);
-
-#else /* STDC */
-extern void scm_async_click ();
-extern void scm_switch ();
-extern SCM scm_async ();
-extern SCM scm_system_async ();
-extern SCM scm_async_mark ();
-extern SCM scm_system_async_mark ();
-extern SCM scm_run_asyncs ();
-extern SCM scm_noop ();
-extern SCM scm_set_tick_rate ();
-extern SCM scm_set_switch_rate ();
-extern SCM scm_take_signal ();
-extern SCM scm_unmask_signals ();
-extern SCM scm_mask_signals ();
-extern void scm_init_async ();
-
-#endif /* STDC */
 
+extern void scm_async_click SCM_P ((void));
+extern void scm_switch SCM_P ((void));
+extern SCM scm_async SCM_P ((SCM thunk));
+extern SCM scm_system_async SCM_P ((SCM thunk));
+extern SCM scm_async_mark SCM_P ((SCM a));
+extern SCM scm_system_async_mark SCM_P ((SCM a));
+extern SCM scm_run_asyncs SCM_P ((SCM list_of_a));
+extern SCM scm_noop SCM_P ((SCM args));
+extern SCM scm_set_tick_rate SCM_P ((SCM n));
+extern SCM scm_set_switch_rate SCM_P ((SCM n));
+extern SCM scm_take_signal SCM_P ((int n));
+extern SCM scm_unmask_signals SCM_P ((void));
+extern SCM scm_mask_signals SCM_P ((void));
+extern void scm_init_async SCM_P ((void));
 
 #endif  /* ASYNCH */