mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 00:10:21 +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;
}
}
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
{
@ -255,9 +252,10 @@ read_frames (dframe, offset, n, iframes)
read_frame (dframe, offset, iframe);
if (SCM_EVALFRAMEP (*dframe))
{
/* If current frame is a macro frame, we should skip the
previously recorded macro application frame. */
if (SCM_MACROFRAMEP (*dframe) && iframe > iframes)
/* If current frame is a macro during expansion, we should
skip the previously recorded macro transformer
application frame. */
if (SCM_MACROEXPP (*dframe) && iframe > iframes)
{
*(iframe - 1) = *iframe;
--iframe;