From 6b69393dcce9a54b734317f81d2d93e669cde8f5 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 6 Apr 2004 21:49:43 +0000 Subject: [PATCH] (scm_cell): use SCM_GC_CELL_WORD for checking tag. --- libguile/ChangeLog | 2 ++ libguile/inline.h | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 169df8be2..5a3369ad7 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,5 +1,7 @@ 2004-04-06 Han-Wen Nienhuys + * inline.h (scm_cell): use SCM_GC_CELL_WORD for checking tag. + * chars.h (scm_init_chars): change scm_{upcase,downcase} to scm_c_{up,down}case. (SCM_MAKE_CHAR): add (unsigned char) cast. This prevents havoc 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();