diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2002-03-14 06:45:56 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2002-03-14 06:45:56 +0000 |
| commit | dff98306223ad8f434e1713795b0b376f5ae1708 (patch) | |
| tree | 8d54651608e91a79caede69ccfb006b71c1d8823 /libguile/srcprop.h | |
| parent | ffaf65cdd060a2a3fe823d00e744210a00211967 (diff) | |
| download | guile-dff98306223ad8f434e1713795b0b376f5ae1708.tar.gz | |
* eval.c (SCM_CEVAL), srcprop.h (SRCBRKP): Eliminated union 't'.
* eval.c (SCM_CEVAL): Exlined call to EVALCAR.
Diffstat (limited to 'libguile/srcprop.h')
| -rw-r--r-- | libguile/srcprop.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/srcprop.h b/libguile/srcprop.h index 89f72e5ab..2f92b0621 100644 --- a/libguile/srcprop.h +++ b/libguile/srcprop.h @@ -115,9 +115,9 @@ 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 (t.arg1 = scm_whash_lookup (scm_source_whash, (x)))\ - && SRCPROPSP (t.arg1)\ - && SRCPROPBRK (t.arg1)) +#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))) |