summaryrefslogtreecommitdiff
path: root/libguile/srcprop.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/srcprop.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/srcprop.c')
-rw-r--r--libguile/srcprop.c8
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)
{