diff options
author | Rob Browning <rlb@defaultvalue.org> | 2003-03-27 20:06:59 +0000 |
---|---|---|
committer | Rob Browning <rlb@defaultvalue.org> | 2003-03-27 20:06:59 +0000 |
commit | 227211409320570be6be6f876555c111bd54536b (patch) | |
tree | 7e765007ea62a633239f0aecbf997b156eac4552 | |
parent | 1a603dc072b9637eef6e4cd26caab51069296357 (diff) | |
download | guile-227211409320570be6be6f876555c111bd54536b.tar.gz |
* eval.c: fix various preprocessor usages of new public
symbols to expect 0 or 1 values rather than 1 or undefined.
i.e. change #ifdef to #if, etc.
-rw-r--r-- | libguile/eval.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 554c14e0b..f19ae9c4a 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -1049,7 +1049,7 @@ scm_m_cont (SCM xorig, SCM env SCM_UNUSED) return scm_cons (SCM_IM_CONT, SCM_CDR (xorig)); } -#ifdef SCM_ENABLE_ELISP +#if SCM_ENABLE_ELISP SCM_SYNTAX (s_nil_cond, "nil-cond", scm_makmmacro, scm_m_nil_cond); @@ -2575,7 +2575,7 @@ dispatch: } -#ifdef SCM_ENABLE_ELISP +#if SCM_ENABLE_ELISP case (SCM_ISYMNUM (SCM_IM_NIL_COND)): { @@ -2669,7 +2669,7 @@ dispatch: scm_misc_error (NULL, "Wrong type to apply: ~S", scm_list_1 (proc)); case scm_tc7_vector: case scm_tc7_wvect: -#ifdef SCM_HAVE_ARRAYS +#if SCM_HAVE_ARRAYS case scm_tc7_bvect: case scm_tc7_byvect: case scm_tc7_svect: |