mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* eval.h: Renamed EVAL --> XEVAL.

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-08-20 17:09:20 +00:00
parent 6dbd0af506
commit 8d1e7f8c0d
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/eval.h
View file

@ -66,17 +66,19 @@
/* Evaluator */
/* {Evaluator}
*
* For an explanation of symbols containing "EVAL", see beginning of eval.c.
*/
#ifdef DEBUG_EXTENSIONS
#define EVAL(x, env) (SCM_IMP(x) \
#define XEVAL(x, env) (SCM_IMP(x) \
? (x) \
: (*scm_ceval_ptr) ((x), (env)))
#else
#define EVAL(x, env) (SCM_IMP(x)?(x):scm_ceval((x), (env)))
#define XEVAL(x, env) (SCM_IMP(x)?(x):scm_ceval((x), (env)))
#endif /* DEBUG_EXTENSIONS */
#define SCM_CEVAL scm_ceval
#define SCM_APPLY scm_apply
#define SIDEVAL(x, env) if SCM_NIMP(x) SCM_CEVAL((x), (env))
@ -111,6 +113,7 @@ extern SCM scm_i_name;
extern SCM * scm_ilookup (SCM iloc, SCM env);
extern SCM * scm_lookupcar (SCM vloc, SCM genv);
extern SCM scm_unmemocar (SCM form, SCM env);
extern SCM scm_unmemocopy (SCM form, SCM env);
extern SCM scm_eval_car (SCM pair, SCM env);
extern SCM scm_m_quote (SCM xorig, SCM env);
extern SCM scm_m_begin (SCM xorig, SCM env);
@ -164,6 +167,7 @@ extern void scm_init_eval (void);
extern SCM * scm_ilookup ();
extern SCM * scm_lookupcar ();
extern SCM scm_unmemocar ();
extern SCM scm_unmemocopy ();
extern SCM scm_eval_car ();
extern SCM scm_m_quote ();
extern SCM scm_m_begin ();