summaryrefslogtreecommitdiff
path: root/libguile/debug.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/debug.h')
-rw-r--r--libguile/debug.h6
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/debug.h b/libguile/debug.h
index 2116256b8..1f999fa24 100644
--- a/libguile/debug.h
+++ b/libguile/debug.h
@@ -115,6 +115,7 @@ typedef union scm_debug_info
{
struct { SCM exp, env; } e;
struct { SCM proc, args; } a;
+ SCM id;
} scm_debug_info;
extern int scm_debug_eframe_size;
@@ -132,17 +133,18 @@ extern scm_debug_frame *scm_last_debug_frame;
#define SCM_EVALFRAME (0L << 10)
#define SCM_APPLYFRAME (1L << 10)
+#define SCM_VOIDFRAME (2L << 10)
#define SCM_TAILREC (1L << 9)
#define SCM_TRACED_FRAME (1L << 8)
#define SCM_ARGS_READY (1L << 7)
#define SCM_DOVERFLOW (1L << 6)
#define SCM_MAX_FRAME_SIZE 63 /* also used as a mask for the size field */
-#define SCM_FRAMETYPE (1L << 10)
+#define SCM_FRAMETYPE (3L << 10)
#define SCM_EVALFRAMEP(x) (((x).status & SCM_FRAMETYPE) == SCM_EVALFRAME)
#define SCM_APPLYFRAMEP(x) (((x).status & SCM_FRAMETYPE) == SCM_APPLYFRAME)
-#define SCM_STARTFRAMEP(x) (((x).status & SCM_FRAMETYPE) == SCM_STARTFRAME)
+#define SCM_VOIDFRAMEP(x) (((x).status & SCM_FRAMETYPE) == SCM_VOIDFRAME)
#define SCM_OVERFLOWP(x) (((x).status & SCM_DOVERFLOW) != 0)
#define SCM_ARGS_READY_P(x) (((x).status & SCM_ARGS_READY) != 0)
#define SCM_TRACED_FRAME_P(x) (((x).status & SCM_TRACED_FRAME) != 0)