summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-11-02 00:08:10 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-11-02 00:08:10 +0000
commite4e933734c267ff14e02f3ae721c06223803dd65 (patch)
tree4d50b9a64bd673f3f6462a675cd1841fe06951f1
parent1174045c9ade5765b91d80d12af7f70b7744f305 (diff)
downloadguile-e4e933734c267ff14e02f3ae721c06223803dd65.tar.gz
Prefixed each each exported symbol with SCM_API.
-rw-r--r--libguile/alist.h34
-rw-r--r--libguile/arbiters.h8
-rw-r--r--libguile/async.h30
-rw-r--r--libguile/backtrace.h18
-rw-r--r--libguile/boolean.h6
5 files changed, 48 insertions, 48 deletions
diff --git a/libguile/alist.h b/libguile/alist.h
index bf8b4562e..010802b5a 100644
--- a/libguile/alist.h
+++ b/libguile/alist.h
@@ -50,23 +50,23 @@
-extern SCM scm_acons (SCM w, SCM x, SCM y);
-extern SCM scm_sloppy_assq (SCM x, SCM alist);
-extern SCM scm_sloppy_assv (SCM x, SCM alist);
-extern SCM scm_sloppy_assoc (SCM x, SCM alist);
-extern SCM scm_assq (SCM x, SCM alist);
-extern SCM scm_assv (SCM x, SCM alist);
-extern SCM scm_assoc (SCM x, SCM alist);
-extern SCM scm_assq_ref (SCM alist, SCM key);
-extern SCM scm_assv_ref (SCM alist, SCM key);
-extern SCM scm_assoc_ref (SCM alist, SCM key);
-extern SCM scm_assq_set_x (SCM alist, SCM key, SCM val);
-extern SCM scm_assv_set_x (SCM alist, SCM key, SCM val);
-extern SCM scm_assoc_set_x (SCM alist, SCM key, SCM val);
-extern SCM scm_assq_remove_x (SCM alist, SCM key);
-extern SCM scm_assv_remove_x (SCM alist, SCM key);
-extern SCM scm_assoc_remove_x (SCM alist, SCM key);
-extern void scm_init_alist (void);
+SCM_API SCM scm_acons (SCM w, SCM x, SCM y);
+SCM_API SCM scm_sloppy_assq (SCM x, SCM alist);
+SCM_API SCM scm_sloppy_assv (SCM x, SCM alist);
+SCM_API SCM scm_sloppy_assoc (SCM x, SCM alist);
+SCM_API SCM scm_assq (SCM x, SCM alist);
+SCM_API SCM scm_assv (SCM x, SCM alist);
+SCM_API SCM scm_assoc (SCM x, SCM alist);
+SCM_API SCM scm_assq_ref (SCM alist, SCM key);
+SCM_API SCM scm_assv_ref (SCM alist, SCM key);
+SCM_API SCM scm_assoc_ref (SCM alist, SCM key);
+SCM_API SCM scm_assq_set_x (SCM alist, SCM key, SCM val);
+SCM_API SCM scm_assv_set_x (SCM alist, SCM key, SCM val);
+SCM_API SCM scm_assoc_set_x (SCM alist, SCM key, SCM val);
+SCM_API SCM scm_assq_remove_x (SCM alist, SCM key);
+SCM_API SCM scm_assv_remove_x (SCM alist, SCM key);
+SCM_API SCM scm_assoc_remove_x (SCM alist, SCM key);
+SCM_API void scm_init_alist (void);
#endif /* SCM_ALIST_H */
diff --git a/libguile/arbiters.h b/libguile/arbiters.h
index 7cda145c7..c0d331515 100644
--- a/libguile/arbiters.h
+++ b/libguile/arbiters.h
@@ -50,10 +50,10 @@
-extern SCM scm_make_arbiter (SCM name);
-extern SCM scm_try_arbiter (SCM arb);
-extern SCM scm_release_arbiter (SCM arb);
-extern void scm_init_arbiters (void);
+SCM_API SCM scm_make_arbiter (SCM name);
+SCM_API SCM scm_try_arbiter (SCM arb);
+SCM_API SCM scm_release_arbiter (SCM arb);
+SCM_API void scm_init_arbiters (void);
#endif /* SCM_ARBITERS_H */
diff --git a/libguile/async.h b/libguile/async.h
index ed2d7c416..7cdb81cd1 100644
--- a/libguile/async.h
+++ b/libguile/async.h
@@ -50,24 +50,24 @@
-extern unsigned int scm_mask_ints;
+SCM_API unsigned int scm_mask_ints;
-extern int scm_asyncs_pending (void);
-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_unmask_signals (void);
-extern SCM scm_mask_signals (void);
-extern void scm_init_async (void);
+SCM_API int scm_asyncs_pending (void);
+SCM_API void scm_async_click (void);
+SCM_API void scm_switch (void);
+SCM_API SCM scm_async (SCM thunk);
+SCM_API SCM scm_system_async (SCM thunk);
+SCM_API SCM scm_async_mark (SCM a);
+SCM_API SCM scm_system_async_mark (SCM a);
+SCM_API SCM scm_run_asyncs (SCM list_of_a);
+SCM_API SCM scm_noop (SCM args);
+SCM_API SCM scm_set_tick_rate (SCM n);
+SCM_API SCM scm_set_switch_rate (SCM n);
+SCM_API SCM scm_unmask_signals (void);
+SCM_API SCM scm_mask_signals (void);
+SCM_API void scm_init_async (void);
#endif /* SCM_ASYNC_H */
diff --git a/libguile/backtrace.h b/libguile/backtrace.h
index 0c0b7417b..482488da5 100644
--- a/libguile/backtrace.h
+++ b/libguile/backtrace.h
@@ -51,19 +51,19 @@
#include "libguile/__scm.h"
-extern SCM scm_the_last_stack_fluid_var;
+SCM_API SCM scm_the_last_stack_fluid_var;
-void scm_display_error_message (SCM message, SCM args, SCM port);
-void scm_i_display_error (SCM stack, SCM port, SCM subr, SCM message, SCM args, SCM rest);
-SCM scm_display_error (SCM stack, SCM port, SCM subr, SCM message, SCM args, SCM rest);
-SCM scm_display_application (SCM frame, SCM port, SCM indent);
-SCM scm_display_backtrace (SCM stack, SCM port, SCM first, SCM depth);
-SCM scm_backtrace (void);
+SCM_API void scm_display_error_message (SCM message, SCM args, SCM port);
+SCM_API void scm_i_display_error (SCM stack, SCM port, SCM subr, SCM message, SCM args, SCM rest);
+SCM_API SCM scm_display_error (SCM stack, SCM port, SCM subr, SCM message, SCM args, SCM rest);
+SCM_API SCM scm_display_application (SCM frame, SCM port, SCM indent);
+SCM_API SCM scm_display_backtrace (SCM stack, SCM port, SCM first, SCM depth);
+SCM_API SCM scm_backtrace (void);
#ifdef GUILE_DEBUG
-SCM scm_set_print_params_x (SCM params);
+SCM_API SCM scm_set_print_params_x (SCM params);
#endif
-void scm_init_backtrace (void);
+SCM_API void scm_init_backtrace (void);
#endif /* SCM_BACKTRACE_H */
diff --git a/libguile/boolean.h b/libguile/boolean.h
index a4328fd48..907873e8d 100644
--- a/libguile/boolean.h
+++ b/libguile/boolean.h
@@ -73,9 +73,9 @@
-extern SCM scm_not (SCM x);
-extern SCM scm_boolean_p (SCM obj);
-extern void scm_init_boolean (void);
+SCM_API SCM scm_not (SCM x);
+SCM_API SCM scm_boolean_p (SCM obj);
+SCM_API void scm_init_boolean (void);
#endif /* SCM_BOOLEAN_H */