diff options
Diffstat (limited to 'libguile/eq.c')
-rw-r--r-- | libguile/eq.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/eq.c b/libguile/eq.c index 7e9d4a45f..e903b4bb4 100644 --- a/libguile/eq.c +++ b/libguile/eq.c @@ -106,8 +106,8 @@ scm_equal_p (x, y) y = SCM_CDR(y); goto tailrecurse; } - if (SCM_TYP7SD (x) == scm_tc7_string - && SCM_TYP7SD (y) == scm_tc7_string) + if (SCM_TYP7S (x) == scm_tc7_string + && SCM_TYP7S (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; |