summaryrefslogtreecommitdiff
path: root/libguile/stacks.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/stacks.h')
-rw-r--r--libguile/stacks.h26
1 files changed, 13 insertions, 13 deletions
diff --git a/libguile/stacks.h b/libguile/stacks.h
index b86d87aa3..b034bb368 100644
--- a/libguile/stacks.h
+++ b/libguile/stacks.h
@@ -55,33 +55,33 @@
/* {Frames and stacks}
*/
-typedef struct scm_info_frame_t {
+typedef struct scm_t_info_frame {
/* SCM flags; */
- scm_bits_t flags;
+ scm_t_bits flags;
SCM source;
SCM proc;
SCM args;
-} scm_info_frame_t;
-#define SCM_FRAME_N_SLOTS (sizeof (scm_info_frame_t) / sizeof (SCM))
+} scm_t_info_frame;
+#define SCM_FRAME_N_SLOTS (sizeof (scm_t_info_frame) / sizeof (SCM))
-#define SCM_STACK(obj) ((scm_stack_t *) SCM_STRUCT_DATA (obj))
+#define SCM_STACK(obj) ((scm_t_stack *) SCM_STRUCT_DATA (obj))
#define SCM_STACK_LAYOUT "pwuourpW"
-typedef struct scm_stack_t {
+typedef struct scm_t_stack {
SCM id; /* Stack id */
- scm_info_frame_t *frames; /* Info frames */
+ scm_t_info_frame *frames; /* Info frames */
unsigned long length; /* Stack length */
unsigned long tail_length;
- scm_info_frame_t tail[1];
-} scm_stack_t;
+ scm_t_info_frame tail[1];
+} scm_t_stack;
#if (SCM_DEBUG_DEPRECATED == 0)
-# define scm_info_frame scm_info_frame_t
-# define scm_stack scm_stack_t
+# define scm_info_frame scm_t_info_frame
+# define scm_stack scm_t_stack
#endif
-extern SCM scm_stack_type;
+extern SCM scm_t_stackype;
-#define SCM_STACKP(obj) (SCM_STRUCTP (obj) && SCM_EQ_P (SCM_STRUCT_VTABLE (obj), scm_stack_type))
+#define SCM_STACKP(obj) (SCM_STRUCTP (obj) && SCM_EQ_P (SCM_STRUCT_VTABLE (obj), scm_t_stackype))
#define SCM_STACK_LENGTH(stack) (SCM_STACK (stack) -> length)
#define SCM_FRAMEP(obj) (SCM_CONSP (obj) \