summaryrefslogtreecommitdiff
path: root/libguile/gdbint.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-03-31 13:34:30 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-03-31 13:34:30 +0000
commit7fa93bf8596468bf2171f590e0ca318e04cacca7 (patch)
treeb73b36a9ba832dfeeb8afdd6315037d14dcae1a9 /libguile/gdbint.c
parent74a16888eb244c08945786a1a536ae01bf1cb970 (diff)
downloadguile-7fa93bf8596468bf2171f590e0ca318e04cacca7.tar.gz
Use SCM_EQ_P to compare scheme objects, use SCM_CELL_WORD_1 for raw data.
Diffstat (limited to 'libguile/gdbint.c')
-rw-r--r--libguile/gdbint.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/gdbint.c b/libguile/gdbint.c
index 1ce183094..ce07314de 100644
--- a/libguile/gdbint.c
+++ b/libguile/gdbint.c
@@ -169,7 +169,7 @@ int
gdb_maybe_valid_type_p (SCM value)
{
if (SCM_IMP (value) || scm_cellp (value))
- return scm_tag (value) != SCM_MAKINUM (-1);
+ return (! SCM_EQ_P (scm_tag (value), SCM_MAKINUM (-1)));
return 0;
}