diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-20 17:09:20 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-20 17:09:20 +0000 |
commit | 8d1e7f8c0de9fcf1bf545875af2ef666daef260b (patch) | |
tree | f12143c0507ccf497e9c2461c548340381df5b08 /libguile/eval.h | |
parent | 6dbd0af506e033c4ba5c2aa49765f8585a626b8b (diff) | |
download | guile-8d1e7f8c0de9fcf1bf545875af2ef666daef260b.tar.gz |
* eval.h: Renamed EVAL --> XEVAL.
Diffstat (limited to 'libguile/eval.h')
-rw-r--r-- | libguile/eval.h | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/libguile/eval.h b/libguile/eval.h index fb8c0c9ec..dedb7c5de 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -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 (); |