diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-07-27 15:41:49 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-27 15:41:49 +0000 |
commit | bc36d0502b9b2ac7e43ded2e1fbeed2f1499bb1d (patch) | |
tree | dafd9e49525c8b5e1ccee4f39b5b720522a93dc3 /libguile/objects.c | |
parent | c82f8ed66ca55da796cb6289f380aaed2e5e34bb (diff) | |
download | guile-bc36d0502b9b2ac7e43ded2e1fbeed2f1499bb1d.tar.gz |
* tags.h, deprecated.h (SCM_EQ_P): Deprecated by moving it into
deprecated.h. Replaced all uses with scm_is_eq.
Diffstat (limited to 'libguile/objects.c')
-rw-r--r-- | libguile/objects.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/objects.c b/libguile/objects.c index ca5c2c29f..519a7ecf5 100644 --- a/libguile/objects.c +++ b/libguile/objects.c @@ -278,7 +278,7 @@ scm_mcache_lookup_cmethod (SCM cache, SCM args) do { /* More arguments than specifiers => CLASS != ENV */ - if (! SCM_EQ_P (scm_class_of (SCM_CAR (ls)), SCM_CAR (z))) + if (! scm_is_eq (scm_class_of (SCM_CAR (ls)), SCM_CAR (z))) goto next_method; ls = SCM_CDR (ls); z = SCM_CDR (z); @@ -452,7 +452,7 @@ SCM_DEFINE (scm_make_class_object, "make-class-object", 2, 0, 0, unsigned long flags = 0; SCM_VALIDATE_STRUCT (1, metaclass); SCM_VALIDATE_STRING (2, layout); - if (SCM_EQ_P (metaclass, scm_metaclass_operator)) + if (scm_is_eq (metaclass, scm_metaclass_operator)) flags = SCM_CLASSF_OPERATOR; return scm_i_make_class_object (metaclass, layout, flags); } |