diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2004-04-06 21:49:43 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2004-04-06 21:49:43 +0000 |
commit | 6b69393dcce9a54b734317f81d2d93e669cde8f5 (patch) | |
tree | 827636fc1499389e31d749c52aad68db5a0ce721 /libguile/inline.h | |
parent | 84fad13058797789120cc27830d777f8295da5d6 (diff) | |
download | guile-6b69393dcce9a54b734317f81d2d93e669cde8f5.tar.gz |
(scm_cell): use SCM_GC_CELL_WORD for checking tag.
Diffstat (limited to 'libguile/inline.h')
-rw-r--r-- | libguile/inline.h | 2 |
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(); |