From baa84a205c6c965c9e22be372e1cd01c68b4997f Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Thu, 4 Sep 2003 19:21:21 +0000 Subject: [PATCH] * eq.c (scm_equal_p): Use SCM_TYP7 to check if an object is of type string, not SCM_TYP7S. --- libguile/ChangeLog | 5 +++++ libguile/eq.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index d7c415d0e..c0df118ad 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2003-09-04 Dirk Herrmann + + * eq.c (scm_equal_p): Use SCM_TYP7 to check if an object is of + type string, not SCM_TYP7S. + 2003-09-03 Kevin Ryde * numbers.c (scm_lognot): Correction to docstring, ones-complement not diff --git a/libguile/eq.c b/libguile/eq.c index 67abdc96e..7068eb31e 100644 --- a/libguile/eq.c +++ b/libguile/eq.c @@ -143,7 +143,7 @@ SCM_PRIMITIVE_GENERIC_1 (scm_equal_p, "equal?", scm_tc7_rpsubr, y = SCM_CDR(y); goto tailrecurse; } - if (SCM_TYP7S (x) == scm_tc7_string && SCM_TYP7S (y) == scm_tc7_string) + if (SCM_TYP7 (x) == scm_tc7_string && SCM_TYP7 (y) == scm_tc7_string) return scm_string_equal_p (x, y); /* This ensures that types and scm_length are the same. */ if (SCM_CELL_TYPE (x) != SCM_CELL_TYPE (y)) -- 2.20.1