* eval.h: Added prototypes for multi language support functions.

diff --git a/libguile/eval.h b/libguile/eval.h
index bbc8f60..06ba4c0 100644 (file)
--- a/libguile/eval.h
+++ b/libguile/eval.h
@@ -106,7 +106,7 @@ extern SCM scm_eval_options_interface SCM_P ((SCM setting));
                             ? SCM_EVALIM(SCM_CAR(x), env) \
                             : SCM_GLOC_VAL(SCM_CAR(x))) \
                          : (SCM_SYMBOLP(SCM_CAR(x)) \
-                            ? *scm_lookupcar(x, env) \
+                            ? *scm_lookupcar(x, env, 1) \
                             : (*scm_ceval_ptr) (SCM_CAR(x), env)))
 #else
 #define SCM_XEVAL(x, env) (SCM_IMP(x)?(x):scm_ceval((x), (env)))
@@ -153,7 +153,7 @@ extern long scm_tc16_macro;
 \f
 
 extern SCM * scm_ilookup SCM_P ((SCM iloc, SCM env));
-extern SCM * scm_lookupcar SCM_P ((SCM vloc, SCM genv));
+extern SCM * scm_lookupcar SCM_P ((SCM vloc, SCM genv, int check));
 extern SCM scm_unmemocar SCM_P ((SCM form, SCM env));
 extern SCM scm_unmemocopy SCM_P ((SCM form, SCM env));
 extern SCM scm_eval_car SCM_P ((SCM pair, SCM env));
@@ -193,13 +193,15 @@ extern SCM scm_deval SCM_P ((SCM x, SCM env));
 extern SCM scm_nconc2last SCM_P ((SCM lst));
 extern SCM scm_apply SCM_P ((SCM proc, SCM arg1, SCM args));
 extern SCM scm_dapply SCM_P ((SCM proc, SCM arg1, SCM args));
-extern SCM SCM_APPLY SCM_P ((SCM proc, SCM arg1, SCM args));
+extern SCM scm_m_expand_body SCM_P ((SCM xorig, SCM env));
+extern SCM scm_macroexp SCM_P ((SCM x, SCM env));
 extern SCM scm_map SCM_P ((SCM proc, SCM arg1, SCM args));
 extern SCM scm_for_each SCM_P ((SCM proc, SCM arg1, SCM args));
 extern SCM scm_closure SCM_P ((SCM code, SCM env));
 extern SCM scm_makprom SCM_P ((SCM code));
 extern SCM scm_force SCM_P ((SCM x));
 extern SCM scm_promise_p SCM_P ((SCM x));
+extern SCM scm_cons_source (SCM xorig, SCM x, SCM y);
 extern SCM scm_copy_tree SCM_P ((SCM obj));
 extern SCM scm_eval_3 SCM_P ((SCM obj, int copyp, SCM env));
 extern SCM scm_eval2 SCM_P ((SCM obj, SCM env_thunk));