summaryrefslogtreecommitdiff
path: root/libguile/lang.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-03 08:47:51 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-03 08:47:51 +0000
commit54778cd31205b1f50397cf7bf92f7d8b37c99870 (patch)
treeca3676c72e75e70a0184e7c50084660e62e9d6a3 /libguile/lang.h
parentabeed821987ec1476e6a7836f1ed8ba8a6185959 (diff)
downloadguile-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.h4
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)