(SCM_EVALIM2): Use SCM_EQ_P instead of `=='.

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

diff --git a/libguile/eval.h b/libguile/eval.h
index 80e0e5f..2ce79fd 100644 (file)
--- a/libguile/eval.h
+++ b/libguile/eval.h
@@ -95,7 +95,7 @@ extern SCM scm_eval_options_interface (SCM setting);
  *
  * For an explanation of symbols containing "EVAL", see beginning of eval.c.
  */
-#define SCM_EVALIM2(x) (((x) == SCM_EOL) \
+#define SCM_EVALIM2(x) ((SCM_EQ_P ((x), SCM_EOL)) \
                        ? scm_misc_error (NULL, scm_s_expression, SCM_EOL), 0 \
                        : (x))
 #ifdef MEMOIZE_LOCALS