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/srcprop.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/srcprop.c')
-rw-r--r-- | libguile/srcprop.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c index bc8a582ab..ae18babf2 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -117,6 +117,14 @@ srcprops_print (SCM obj, SCM port, scm_print_state *pstate) } +int +scm_c_source_property_breakpoint_p (SCM form) +{ + SCM obj = scm_whash_lookup (scm_source_whash, form); + return SRCPROPSP (obj) && SRCPROPBRK (obj); +} + + SCM scm_make_srcprops (long line, int col, SCM filename, SCM copy, SCM plist) { |