* ioext.c (scm_setfileno): throw a runtime error if SET_FILE_FD_FIELD

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

diff --git a/libguile/gsubr.h b/libguile/gsubr.h
index 0054299..7eb34ce 100644 (file)
--- a/libguile/gsubr.h
+++ b/libguile/gsubr.h
@@ -44,22 +44,12 @@
  */
 \f
 
-#include <libguile/__scm.h>
+#include "libguile/__scm.h"
 
 \f
-#ifdef __STDC__
-extern SCM scm_make_gsubr(char *name, int req, int opt, int rst, SCM (*fcn)());
-extern SCM scm_gsubr_apply(SCM args);
-extern void scm_init_gsubr(void);
-
-#else /* STDC */
-extern SCM scm_make_gsubr();
-extern SCM scm_gsubr_apply();
-extern void scm_init_gsubr();
-
-#endif /* STDC */
-
-
 
+extern SCM scm_make_gsubr SCM_P ((char *name, int req, int opt, int rst, SCM (*fcn)()));
+extern SCM scm_gsubr_apply SCM_P ((SCM args));
+extern void scm_init_gsubr SCM_P ((void));
 
 #endif  /* GSUBRH */