diff options
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) { |