mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* srcprop.[ch] (scm_c_source_property_breakpoint_p): New

Browse source 
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.
This commit is contained in:
Dirk Herrmann 2002-03-26 00:19:04 +00:00
parent 5132eef0cf
commit bc76d62865
5 changed files with 35 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/srcprop.c
View file

@ -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)
{