summaryrefslogtreecommitdiff
path: root/libguile/eval.h
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-08-20 17:09:20 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-08-20 17:09:20 +0000
commit8d1e7f8c0de9fcf1bf545875af2ef666daef260b (patch)
treef12143c0507ccf497e9c2461c548340381df5b08 /libguile/eval.h
parent6dbd0af506e033c4ba5c2aa49765f8585a626b8b (diff)
downloadguile-8d1e7f8c0de9fcf1bf545875af2ef666daef260b.tar.gz
* eval.h: Renamed EVAL --> XEVAL.
Diffstat (limited to 'libguile/eval.h')
-rw-r--r--libguile/eval.h12
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 ();