Prefixed each each exported symbol with SCM_API.

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

diff --git a/libguile/gsubr.h b/libguile/gsubr.h
index de34898..a1e068b 100644 (file)
--- a/libguile/gsubr.h
+++ b/libguile/gsubr.h
@@ -61,21 +61,21 @@
 #define SCM_GSUBR_PROC(cclo) (SCM_CCLO_REF ((cclo), 2))
 #define SCM_SET_GSUBR_PROC(cclo, proc) (SCM_CCLO_SET ((cclo), 2, (proc)))
 
-extern SCM scm_f_gsubr_apply;
+SCM_API SCM scm_f_gsubr_apply;
 
-extern SCM scm_c_make_gsubr (const char *name, 
-                            int req, int opt, int rst, SCM (*fcn) ());
-extern SCM scm_c_make_gsubr_with_generic (const char *name,
-                                         int req, int opt, int rst,
-                                         SCM (*fcn) (), SCM *gf);
-extern SCM scm_c_define_gsubr (const char *name, 
-                              int req, int opt, int rst, SCM (*fcn) ());
-extern SCM scm_c_define_gsubr_with_generic (const char *name,
-                                           int req, int opt, int rst,
-                                           SCM (*fcn) (), SCM *gf);
+SCM_API SCM scm_c_make_gsubr (const char *name, 
+                             int req, int opt, int rst, SCM (*fcn) ());
+SCM_API SCM scm_c_make_gsubr_with_generic (const char *name,
+                                          int req, int opt, int rst,
+                                          SCM (*fcn) (), SCM *gf);
+SCM_API SCM scm_c_define_gsubr (const char *name, 
+                               int req, int opt, int rst, SCM (*fcn) ());
+SCM_API SCM scm_c_define_gsubr_with_generic (const char *name,
+                                            int req, int opt, int rst,
+                                            SCM (*fcn) (), SCM *gf);
 
-extern SCM scm_gsubr_apply (SCM args);
-extern void scm_init_gsubr (void);
+SCM_API SCM scm_gsubr_apply (SCM args);
+SCM_API void scm_init_gsubr (void);
 
 #endif  /* SCM_GSUBR_H */