dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* eq.c (scm_equal_p): use SCM_TYP7SD (y) not SCM_TYP7SD (x).

Browse source
This commit is contained in:
Gary Houston 1997-05-02 19:11:43 +00:00
commit 554878da6d
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
Fri May 2 19:07:11 1997 Gary Houston <ghouston@actrix.gen.nz>
* eq.c (scm_equal_p): use SCM_TYP7SD (y) not SCM_TYP7SD (x).
Thu May 1 17:01:45 1997 Jim Blandy <jimb@floss.cyclic.com>
* Makefile.am (check-local): New target, which causes 'make check'

2
libguile/eq.c
View file

@ -107,7 +107,7 @@ scm_equal_p (x, y)
goto tailrecurse;
}
if (SCM_TYP7SD (x) == scm_tc7_string
&& SCM_TYP7SD (x) == scm_tc7_string)
&& SCM_TYP7SD (y) == scm_tc7_string)
return scm_string_equal_p (x, y);
/* This ensures that types and scm_length are the same. */
if (SCM_CAR(x) != SCM_CAR(y)) return SCM_BOOL_F;