diff options
author | Marius Vollmer <mvo@zagadka.de> | 2002-11-03 22:09:20 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2002-11-03 22:09:20 +0000 |
commit | 3d7f708f21b109277018e776ec3754975696e390 (patch) | |
tree | 7375110d778d41e84ca356226f7a85768804f7eb /libguile/root.h | |
parent | 5cbed2d017e940d5ee2e625fe12d66278ae6cfb9 (diff) | |
download | guile-3d7f708f21b109277018e776ec3754975696e390.tar.gz |
* __scm.h (USE_THREADS, GUILE_ISELECT): Define when
SCM_DEBUG_DEPRECATED. Removed their use thru-out Guile.
Diffstat (limited to 'libguile/root.h')
-rw-r--r-- | libguile/root.h | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/libguile/root.h b/libguile/root.h index 2795b171e..22a32b893 100644 --- a/libguile/root.h +++ b/libguile/root.h @@ -124,22 +124,15 @@ typedef struct scm_root_state #define scm_rootcont (scm_root->rootcont) #define scm_dynwinds (scm_root->dynwinds) #define scm_progargs (scm_root->progargs) -#ifdef USE_THREADS #define scm_last_debug_frame (scm_root->last_debug_frame) -#endif #define scm_exitval (scm_root->exitval) #define scm_cur_inp (scm_root->cur_inp) #define scm_cur_outp (scm_root->cur_outp) #define scm_cur_errp (scm_root->cur_errp) #define scm_cur_loadp (scm_root->cur_loadp) -#ifdef USE_THREADS -#define scm_root ((scm_root_state *) SCM_THREAD_LOCAL_DATA) -#define scm_set_root(new_root) SCM_SET_THREAD_LOCAL_DATA (new_root) -#else /* USE_THREADS */ -SCM_API struct scm_root_state *scm_root; -#define scm_set_root(new_root) (scm_root = (new_root)) -#endif /* USE_THREADS */ +#define scm_root ((scm_root_state *) SCM_THREAD_LOCAL_DATA) +#define scm_set_root(new_root) SCM_SET_THREAD_LOCAL_DATA (new_root) |