summaryrefslogtreecommitdiff
path: root/libguile/inline.h
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2004-04-06 21:49:43 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2004-04-06 21:49:43 +0000
commit6b69393dcce9a54b734317f81d2d93e669cde8f5 (patch)
tree827636fc1499389e31d749c52aad68db5a0ce721 /libguile/inline.h
parent84fad13058797789120cc27830d777f8295da5d6 (diff)
downloadguile-6b69393dcce9a54b734317f81d2d93e669cde8f5.tar.gz
(scm_cell): use SCM_GC_CELL_WORD for checking tag.
Diffstat (limited to 'libguile/inline.h')
-rw-r--r--libguile/inline.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/inline.h b/libguile/inline.h
index 0a3c8ad75..6e6f1f4cf 100644
--- a/libguile/inline.h
+++ b/libguile/inline.h
@@ -98,7 +98,7 @@ scm_cell (scm_t_bits car, scm_t_bits cdr)
fprintf(stderr, "scm_cell tried to allocate a marked cell.\n");
abort();
}
- else if (SCM_GC_CELL_TYPE(z) != scm_tc_free_cell)
+ else if (SCM_GC_CELL_WORD(z, 0) != scm_tc_free_cell)
{
fprintf(stderr, "cell from freelist is not a free cell.\n");
abort();