summaryrefslogtreecommitdiff
path: root/libguile/srcprop.h
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.h
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.h')
-rw-r--r--libguile/srcprop.h10
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 */
/*