diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2002-03-26 00:19:04 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2002-03-26 00:19:04 +0000 |
commit | bc76d628650140c26e5dc772c2a38bb91eeb5e0e (patch) | |
tree | 943e2e1c93e4f782e35dc88b8a02df1b06d3c31a /libguile/eval.c | |
parent | 5132eef0cfa81c8734b8477754884d886a340363 (diff) | |
download | guile-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.c | 12 |
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; |