summaryrefslogtreecommitdiff
path: root/libguile/srcprop.c
diff options
context:
space:
mode:
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)
{