X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/c82f8ed66ca55da796cb6289f380aaed2e5e34bb..bc36d0502b9b2ac7e43ded2e1fbeed2f1499bb1d:/libguile/stacks.h

diff --git a/libguile/stacks.h b/libguile/stacks.h
index 4e68a67a5..568587c4c 100644
--- a/libguile/stacks.h
+++ b/libguile/stacks.h
@@ -48,7 +48,7 @@ typedef struct scm_t_stack {
 
 SCM_API SCM scm_stack_type;
 
-#define SCM_STACKP(obj) (SCM_STRUCTP (obj) && SCM_EQ_P (SCM_STRUCT_VTABLE (obj), scm_stack_type))
+#define SCM_STACKP(obj) (SCM_STRUCTP (obj) && scm_is_eq (SCM_STRUCT_VTABLE (obj), scm_stack_type))
 #define SCM_STACK_LENGTH(stack) (SCM_STACK (stack) -> length)
 
 #define SCM_FRAMEP(obj) \