X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/df8bb2dc3988d24c0f64bd2cc5fa01a31825d11a..c209c88e54d08a557a297836200e16e20355df02:/libguile/stacks.h

diff --git a/libguile/stacks.h b/libguile/stacks.h
index d571584fe..c20671084 100644
--- a/libguile/stacks.h
+++ b/libguile/stacks.h
@@ -56,7 +56,8 @@
  */
 
 typedef struct scm_info_frame {
-  SCM flags;
+  //SCM flags;
+  SCMWORD flags;
   SCM source;
   SCM proc;
   SCM args;
@@ -107,11 +108,11 @@ extern SCM scm_stack_type;
 #define SCM_FRAMEF_EVAL_ARGS 	(1L << 5)
 #define SCM_FRAMEF_OVERFLOW	(1L << 6)
 
-#define SCM_FRAME_VOID_P(frame) (SCM_FRAME_FLAGS (frame) & SCM_FRAMEF_VOID)
-#define SCM_FRAME_REAL_P(frame) (SCM_FRAME_FLAGS (frame) & SCM_FRAMEF_REAL)
-#define SCM_FRAME_PROC_P(frame) (SCM_FRAME_FLAGS (frame) & SCM_FRAMEF_PROC)
-#define SCM_FRAME_EVAL_ARGS_P(frame) (SCM_FRAME_FLAGS (frame) & SCM_FRAMEF_EVAL_ARGS)
-#define SCM_FRAME_OVERFLOW_P(frame) (SCM_FRAME_FLAGS (frame) & SCM_FRAMEF_OVERFLOW)
+#define SCM_FRAME_VOID_P(frame) (SCM_ASWORD (SCM_FRAME_FLAGS (frame)) & SCM_FRAMEF_VOID)
+#define SCM_FRAME_REAL_P(frame) (SCM_ASWORD (SCM_FRAME_FLAGS (frame)) & SCM_FRAMEF_REAL)
+#define SCM_FRAME_PROC_P(frame) (SCM_ASWORD (SCM_FRAME_FLAGS (frame)) & SCM_FRAMEF_PROC)
+#define SCM_FRAME_EVAL_ARGS_P(frame) (SCM_ASWORD (SCM_FRAME_FLAGS (frame)) & SCM_FRAMEF_EVAL_ARGS)
+#define SCM_FRAME_OVERFLOW_P(frame) (SCM_ASWORD (SCM_FRAME_FLAGS (frame)) & SCM_FRAMEF_OVERFLOW)