110 |
#define CLEARSRCPROPBRK(p) \ |
#define CLEARSRCPROPBRK(p) \ |
111 |
(SCM_SET_CELL_WORD_0 ((p), SCM_CELL_WORD_0 (p) \ |
(SCM_SET_CELL_WORD_0 ((p), SCM_CELL_WORD_0 (p) \ |
112 |
& ~SCM_SOURCE_PROPERTY_FLAG_BREAK)) |
& ~SCM_SOURCE_PROPERTY_FLAG_BREAK)) |
113 |
#define SRCPROPMAKPOS(l,c) (((l) << 12) + (c)) |
#define SRCPROPMAKPOS(l, c) (((l) << 12) + (c)) |
114 |
#define SETSRCPROPPOS(p,l,c) (SRCPROPPOS (p) = SRCPROPMAKPOS (l, c)) |
#define SETSRCPROPPOS(p, l, c) (SRCPROPPOS (p) = SRCPROPMAKPOS (l, c)) |
115 |
#define SETSRCPROPLINE(p,l) SETSRCPROPPOS (p, l, SRCPROPCOL (p)) |
#define SETSRCPROPLINE(p, l) SETSRCPROPPOS (p, l, SRCPROPCOL (p)) |
116 |
#define SETSRCPROPCOL(p,c) SETSRCPROPPOS (p, SRCPROPLINE (p), c) |
#define SETSRCPROPCOL(p, c) SETSRCPROPPOS (p, SRCPROPLINE (p), c) |
117 |
|
|
118 |
#define PROCTRACEP(x) (!SCM_FALSEP (scm_procedure_property (x, scm_sym_trace))) |
#define PROCTRACEP(x) (!SCM_FALSEP (scm_procedure_property (x, scm_sym_trace))) |
119 |
|
|