summaryrefslogtreecommitdiff
path: root/libguile/eq.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/eq.c')
-rw-r--r--libguile/eq.c4
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;