diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-03 08:47:51 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-03 08:47:51 +0000 |
commit | 54778cd31205b1f50397cf7bf92f7d8b37c99870 (patch) | |
tree | ca3676c72e75e70a0184e7c50084660e62e9d6a3 /libguile/lang.h | |
parent | abeed821987ec1476e6a7836f1ed8ba8a6185959 (diff) | |
download | guile-54778cd31205b1f50397cf7bf92f7d8b37c99870.tar.gz |
Lots of fixes to make guile (at some time) compile with strict typing.
Diffstat (limited to 'libguile/lang.h')
-rw-r--r-- | libguile/lang.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/lang.h b/libguile/lang.h index 4062c779f..f0514d0c6 100644 --- a/libguile/lang.h +++ b/libguile/lang.h @@ -51,9 +51,9 @@ extern SCM scm_lisp_nil; extern SCM scm_lisp_t; -#define SCM_NILP(x) ((x) == scm_lisp_nil) +#define SCM_NILP(x) (SCM_EQ_P ((x), scm_lisp_nil)) #define SCM_NILNULLP(x) (SCM_NILP (x) || SCM_NULLP (x)) -#define SCM_NIL2EOL(x, tmp) ((tmp = (x)) == scm_lisp_nil ? SCM_EOL : tmp) +#define SCM_NIL2EOL(x, tmp) (SCM_EQ_P ((tmp = (x)), scm_lisp_nil) ? SCM_EOL : tmp) #define SCM_EOL2NIL(x, tmp) (SCM_NULLP (tmp = (x)) ? scm_lisp_nil : tmp) #define SCM_EOL_IFY(x, tmp) (tmp = (x), SCM_NILP (tmp) ? SCM_EOL : tmp) #define SCM_NIL_IFY(x, tmp) (tmp = (x), SCM_NILP (tmp) ? scm_lisp_nil : tmp) |