summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2002-03-26 00:19:04 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2002-03-26 00:19:04 +0000
commitbc76d628650140c26e5dc772c2a38bb91eeb5e0e (patch)
tree943e2e1c93e4f782e35dc88b8a02df1b06d3c31a /libguile/eval.c
parent5132eef0cfa81c8734b8477754884d886a340363 (diff)
downloadguile-bc76d628650140c26e5dc772c2a38bb91eeb5e0e.tar.gz
* srcprop.[ch] (scm_c_source_property_breakpoint_p): New
function, replaces macro SRCBRKP. (SRCBRKP): Deprecated. * eval.c (SCM_CEVAL): Replaced use of SRCBRKP by call to scm_c_source_property_breakpoint_p. Removed some use of arg1 as temporary variable.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c12
1 files changed, 7 insertions, 5 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 7d3bf2ac4..2eb1367ed 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1939,19 +1939,21 @@ start:
debug.info->e.env = env;
if (scm_check_entry_p && SCM_TRAPS_P)
{
- if (SCM_ENTER_FRAME_P || (SCM_BREAKPOINTS_P && SRCBRKP (x)))
+ if (SCM_ENTER_FRAME_P
+ || (SCM_BREAKPOINTS_P && scm_c_source_property_breakpoint_p (x)))
{
- SCM tail = SCM_BOOL(SCM_TAILRECP (debug));
+ SCM stackrep;
+ SCM tail = SCM_BOOL (SCM_TAILRECP (debug));
SCM_SET_TAILREC (debug);
if (SCM_CHEAPTRAPS_P)
- arg1 = scm_make_debugobj (&debug);
+ stackrep = scm_make_debugobj (&debug);
else
{
int first;
SCM val = scm_make_continuation (&first);
if (first)
- arg1 = val;
+ stackrep = val;
else
{
x = val;
@@ -1966,7 +1968,7 @@ start:
SCM_TRAPS_P = 0;
scm_call_4 (SCM_ENTER_FRAME_HDLR,
scm_sym_enter_frame,
- arg1,
+ stackrep,
tail,
scm_unmemocopy (x, env));
SCM_TRAPS_P = 1;