mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-20 19:50:24 +02:00
* throw.h, throw.c: Use SCM_P instead of #if hair.
This commit is contained in:
parent
32f7b3a1b1
commit
d6c7f2deab
1 changed files with 4 additions and 17 deletions
|
@ -47,21 +47,8 @@
|
||||||
#include "libguile/__scm.h"
|
#include "libguile/__scm.h"
|
||||||
|
|
||||||
|
|
||||||
|
extern SCM scm_catch SCM_P ((SCM tag, SCM thunk, SCM handler));
|
||||||
|
extern SCM scm_ithrow SCM_P ((SCM key, SCM args, int noreturn));
|
||||||
#ifdef __STDC__
|
extern SCM scm_throw SCM_P ((SCM key, SCM args));
|
||||||
extern SCM scm_catch (SCM tag, SCM thunk, SCM handler);
|
extern void scm_init_throw SCM_P ((void));
|
||||||
extern SCM scm_ithrow (SCM key, SCM args, int noreturn);
|
|
||||||
extern SCM scm_throw (SCM key, SCM args);
|
|
||||||
extern void scm_init_throw (void);
|
|
||||||
|
|
||||||
#else /* STDC */
|
|
||||||
extern SCM scm_catch ();
|
|
||||||
extern SCM scm_ithrow ();
|
|
||||||
extern SCM scm_throw ();
|
|
||||||
extern void scm_init_throw ();
|
|
||||||
|
|
||||||
#endif /* STDC */
|
|
||||||
|
|
||||||
|
|
||||||
#endif /* THROWH */
|
#endif /* THROWH */
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue