mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* eq.c (scm_equal_p): Use SCM_TYP7 to check if an object is of

Browse source 
type string, not SCM_TYP7S.
This commit is contained in:
Dirk Herrmann 2003-09-04 19:21:21 +00:00
parent 53bb87824d
commit baa84a205c
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2003-09-04 Dirk Herrmann <D.Herrmann@tu-bs.de>
* 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 <user42@zip.com.au> 2003-09-03 Kevin Ryde <user42@zip.com.au>
* numbers.c (scm_lognot): Correction to docstring, ones-complement not * numbers.c (scm_lognot): Correction to docstring, ones-complement not

2
libguile/eq.c
View file

@ -143,7 +143,7 @@ SCM_PRIMITIVE_GENERIC_1 (scm_equal_p, "equal?", scm_tc7_rpsubr,
y = SCM_CDR(y); y = SCM_CDR(y);
goto tailrecurse; 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); return scm_string_equal_p (x, y);
/* This ensures that types and scm_length are the same. */ /* This ensures that types and scm_length are the same. */
if (SCM_CELL_TYPE (x) != SCM_CELL_TYPE (y)) if (SCM_CELL_TYPE (x) != SCM_CELL_TYPE (y))