diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-03-31 13:34:30 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-03-31 13:34:30 +0000 |
commit | 7fa93bf8596468bf2171f590e0ca318e04cacca7 (patch) | |
tree | b73b36a9ba832dfeeb8afdd6315037d14dcae1a9 /libguile/gdbint.c | |
parent | 74a16888eb244c08945786a1a536ae01bf1cb970 (diff) | |
download | guile-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.c | 2 |
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; } |