summaryrefslogtreecommitdiff
path: root/libguile/inline.h
diff options
context:
space:
mode:
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();