(scm_num_eq_p): On 64-bit systems, be careful about

[bpt/guile.git] / libguile / eval.h

diff --git a/libguile/eval.h b/libguile/eval.h
index 5ea3b8f..f1b94a0 100644 (file)
--- a/libguile/eval.h
+++ b/libguile/eval.h
@@ -71,8 +71,7 @@ SCM_API SCM scm_eval_options_interface (SCM setting);
   (SCM_F_PROMISE_COMPUTED & SCM_SMOB_FLAGS (promise))
 #define SCM_SET_PROMISE_COMPUTED(promise) \
   SCM_SET_SMOB_FLAGS ((promise), SCM_F_PROMISE_COMPUTED)
-#define SCM_PROMISE_MUTEX(promise) \
-  ((scm_t_rec_mutex *) SCM_SMOB_DATA_2 (promise))
+#define SCM_PROMISE_MUTEX     SCM_SMOB_OBJECT_2
 #define SCM_PROMISE_DATA      SCM_SMOB_OBJECT
 #define SCM_SET_PROMISE_DATA  SCM_SET_SMOB_OBJECT
 
@@ -128,7 +127,6 @@ SCM_API SCM scm_sym_args;
 
 SCM_API SCM * scm_ilookup (SCM iloc, SCM env);
 SCM_API SCM * scm_lookupcar (SCM vloc, SCM genv, int check);
-SCM_API SCM scm_unmemocopy (SCM form, SCM env);
 SCM_API SCM scm_eval_car (SCM pair, SCM env);
 SCM_API SCM scm_eval_body (SCM code, SCM env);
 SCM_API SCM scm_eval_args (SCM i, SCM env, SCM proc);
@@ -197,6 +195,8 @@ SCM_API SCM scm_eval_x (SCM exp, SCM module);
 
 SCM_API void scm_i_print_iloc (SCM /*iloc*/, SCM /*port*/);
 SCM_API void scm_i_print_isym (SCM /*isym*/, SCM /*port*/);
+SCM_API SCM scm_i_unmemocopy_expr (SCM expr, SCM env);
+SCM_API SCM scm_i_unmemocopy_body (SCM forms, SCM env);
 SCM_API void scm_init_eval (void);