diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-12 18:30:33 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-12 18:30:33 +0000 |
commit | f12677062e15015d7ef7d36fe3d103a77d1fefca (patch) | |
tree | e9ec3a99d2037b92f5c0c95e2a5b6e234b7ebb9d /libguile/stacks.c | |
parent | 67673f7594ecd4768b9e6db847949406a9e10091 (diff) | |
download | guile-f12677062e15015d7ef7d36fe3d103a77d1fefca.tar.gz |
*** empty log message ***
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 40494ff67..b516d4f23 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_bits_t flags = SCM_BITS (SCM_INUM0); /* UGh. */ + scm_bits_t flags = SCM_UNPACK (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_BITS(SCM_INUM0) | SCM_FRAMEF_PROC; + iframe->flags = SCM_UNPACK(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_BITS(SCM_INUM0) | SCM_FRAMEF_PROC; + iframe->flags = SCM_UNPACK(SCM_INUM0) | SCM_FRAMEF_PROC; iframe->proc = info[1].a.proc; iframe->args = info[1].a.args; } else - iframe->flags = SCM_BITS (SCM_INUM0); + iframe->flags = SCM_UNPACK (SCM_INUM0); iframe->source = scm_make_memoized (info[0].e.exp, info[0].e.env); info -= 2; |