diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-06-14 19:50:43 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-06-14 19:50:43 +0000 |
commit | 92c2555f6972b5fbc2236fe486e9432040b43812 (patch) | |
tree | e439c8a06c62d74e4ef377a3fbe94783f2943a90 /libguile/procs.h | |
parent | 51fa276692198eb140365f60e516fbc8ff547f10 (diff) | |
download | guile-92c2555f6972b5fbc2236fe486e9432040b43812.tar.gz |
replace "scm_*_t" with "scm_t_*".
Diffstat (limited to 'libguile/procs.h')
-rw-r--r-- | libguile/procs.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/procs.h b/libguile/procs.h index 0f07bb08f..9eba0d635 100644 --- a/libguile/procs.h +++ b/libguile/procs.h @@ -63,10 +63,10 @@ typedef struct * *generic == 0 until first method */ SCM properties; /* procedure properties */ -} scm_subr_entry_t; +} scm_t_subr_entry; #if (SCM_DEBUG_DEPRECATED == 0) -# define scm_subr_entry scm_subr_entry_t +# define scm_subr_entry scm_t_subr_entry #endif #define SCM_SUBRNUM(subr) (SCM_CELL_WORD_0 (subr) >> 8) @@ -82,7 +82,7 @@ typedef struct #define SCM_CCLO_LENGTH(x) (SCM_CELL_WORD_0 (x) >> 8) #define SCM_SET_CCLO_LENGTH(x, v) (SCM_SET_CELL_WORD_0 ((x), ((v) << 8) + scm_tc7_cclo)) -#define SCM_CCLO_BASE(x) ((scm_bits_t *) SCM_CELL_WORD_1 (x)) +#define SCM_CCLO_BASE(x) ((scm_t_bits *) SCM_CELL_WORD_1 (x)) #define SCM_SET_CCLO_BASE(x, v) (SCM_SET_CELL_WORD_1 ((x), (v))) #define SCM_CCLO_REF(x, i) (SCM_PACK (SCM_CCLO_BASE (x) [i])) @@ -157,7 +157,7 @@ typedef struct #define SCM_PROCEDURE(obj) SCM_CELL_OBJECT_1 (obj) #define SCM_SETTER(obj) SCM_CELL_OBJECT_2 (obj) -extern scm_subr_entry_t *scm_subr_table; +extern scm_t_subr_entry *scm_subr_table; extern long scm_subr_table_size; extern long scm_subr_table_room; |