mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

* eval.c (SCM_CEVAL), srcprop.h (SRCBRKP): Eliminated union 't'.

Browse source 
* eval.c (SCM_CEVAL): Exlined call to EVALCAR.
This commit is contained in:
Dirk Herrmann 2002-03-14 06:45:56 +00:00
parent ffaf65cdd0
commit dff9830622
3 changed files with 139 additions and 145 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/srcprop.h
View file

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