summaryrefslogtreecommitdiff
path: root/libguile/lang.c
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.c
parentabeed821987ec1476e6a7836f1ed8ba8a6185959 (diff)
downloadguile-54778cd31205b1f50397cf7bf92f7d8b37c99870.tar.gz
Lots of fixes to make guile (at some time) compile with strict typing.
Diffstat (limited to 'libguile/lang.c')
-rw-r--r--libguile/lang.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/lang.c b/libguile/lang.c
index 21bd3ff8d..3b93462a9 100644
--- a/libguile/lang.c
+++ b/libguile/lang.c
@@ -137,7 +137,7 @@ SCM_DEFINE1 (scm_nil_eq, "nil-eq", scm_tc7_rpsubr,
"")
#define FUNC_NAME s_scm_nil_eq
{
- return (((x==y)
+ return ((SCM_EQ_P (x, y)
|| (SCM_NILP (x) && (SCM_NULLP (y) || SCM_FALSEP (y)))
|| (SCM_NILP (y) && (SCM_NULLP (x) || SCM_FALSEP (x))))
? scm_lisp_t