diff options
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r-- | libguile/stacks.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c index 124b830aa..b2f830f8e 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -188,7 +188,7 @@ stack_depth (scm_debug_frame *dframe,long offset,SCM *id,int *maxp) static void read_frame (scm_debug_frame *dframe,long offset,scm_info_frame *iframe) { - SCM flags = SCM_INUM0; + SCMWORD flags = SCM_ASWORD (SCM_INUM0); /* UGh. */ int size; scm_debug_info *info; if (SCM_EVALFRAMEP (*dframe)) @@ -291,7 +291,7 @@ read_frames (scm_debug_frame *dframe,long offset,int n,scm_info_frame *iframes) && !SCM_UNBNDP (info[1].a.proc)) { NEXT_FRAME (iframe, n, quit); - iframe->flags = SCM_INUM0 | SCM_FRAMEF_PROC; + iframe->flags = SCM_ASWORD(SCM_INUM0) | SCM_FRAMEF_PROC; iframe->proc = info[1].a.proc; iframe->args = info[1].a.args; } @@ -303,12 +303,12 @@ read_frames (scm_debug_frame *dframe,long offset,int n,scm_info_frame *iframes) { if (!SCM_UNBNDP (info[1].a.proc)) { - iframe->flags = SCM_INUM0 | SCM_FRAMEF_PROC; + iframe->flags = SCM_ASWORD(SCM_INUM0) | SCM_FRAMEF_PROC; iframe->proc = info[1].a.proc; iframe->args = info[1].a.args; } else - iframe->flags = SCM_INUM0; + iframe->flags = SCM_ASWORD (SCM_INUM0); iframe->source = scm_make_memoized (info[0].e.exp, info[0].e.env); info -= 2; |