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

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 442636f..c210417 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -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'

diff --git a/libguile/eq.c b/libguile/eq.c
index a203e6d..dfdd945 100644 (file)
--- a/libguile/eq.c
+++ b/libguile/eq.c
@@ -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;