mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-02 10:16:19 +02:00
Code Activity

* stacks.c (read_frame): Bugfix: Removed lingering `else'

Browse source 
statement.
(read_frames): Use SCM_MACROEXPP.
This commit is contained in:
Mikael Djurfeldt 1998-11-10 06:10:33 +00:00
parent 7c3540523f
commit 6629eb1ca7
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/stacks.c
View file

@ -209,10 +209,7 @@ read_frame (dframe, offset, iframe)
flags |= SCM_FRAMEF_EVAL_ARGS; flags |= SCM_FRAMEF_EVAL_ARGS;
} }
} }
else iframe->source = scm_make_memoized (info[0].e.exp, info[0].e.env);
{
iframe->source = scm_make_memoized (info[0].e.exp, info[0].e.env);
}
} }
else else
{ {
@ -255,9 +252,10 @@ read_frames (dframe, offset, n, iframes)
read_frame (dframe, offset, iframe); read_frame (dframe, offset, iframe);
if (SCM_EVALFRAMEP (*dframe)) if (SCM_EVALFRAMEP (*dframe))
{ {
/* If current frame is a macro frame, we should skip the /* If current frame is a macro during expansion, we should
previously recorded macro application frame. */ skip the previously recorded macro transformer
if (SCM_MACROFRAMEP (*dframe) && iframe > iframes) application frame. */
if (SCM_MACROEXPP (*dframe) && iframe > iframes)
{ {
*(iframe - 1) = *iframe; *(iframe - 1) = *iframe;
--iframe; --iframe;