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.h | |
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.h')
-rw-r--r-- | libguile/srcprop.h | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/srcprop.h b/libguile/srcprop.h index 2f92b0621..117dc39ed 100644 --- a/libguile/srcprop.h +++ b/libguile/srcprop.h @@ -115,10 +115,6 @@ typedef struct scm_t_srcprops_chunk #define SETSRCPROPLINE(p,l) SETSRCPROPPOS (p, l, SRCPROPCOL (p)) #define SETSRCPROPCOL(p,c) SETSRCPROPPOS (p, SRCPROPLINE (p), c) -#define SRCBRKP(x) (!SCM_IMP (arg1 = scm_whash_lookup (scm_source_whash, (x)))\ - && SRCPROPSP (arg1)\ - && SRCPROPBRK (arg1)) - #define PROCTRACEP(x) (!SCM_FALSEP (scm_procedure_property (x, scm_sym_trace))) SCM_API SCM scm_sym_filename; @@ -129,7 +125,7 @@ SCM_API SCM scm_sym_breakpoint; - +SCM_API int scm_c_source_property_breakpoint_p (SCM form); SCM_API SCM scm_srcprops_to_plist (SCM obj); SCM_API SCM scm_make_srcprops (long line, int col, SCM fname, SCM copy, SCM plist); SCM_API SCM scm_source_property (SCM obj, SCM key); @@ -139,6 +135,10 @@ SCM_API SCM scm_set_source_properties_x (SCM obj, SCM props); SCM_API void scm_finish_srcprop (void); SCM_API void scm_init_srcprop (void); +#if SCM_ENABLE_DEPRECATED == 1 +#define SRCBRKP(x) (scm_source_property_breakpoint_p (x)) +#endif + #endif /* SCM_SRCPROP_H */ /* |