mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* Goops does not provide its own version of logand any more.

Browse source 
* Removed use of deprecated stuff from goops.
This commit is contained in:
Dirk Herrmann 2000-11-24 10:55:23 +00:00
parent 379b35daaa
commit ca83b028dc
6 changed files with 48 additions and 67 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/goops.h
View file

@ -134,7 +134,7 @@ typedef struct scm_method_t {
| SCM_CLASSF_SIMPLE_METHOD))
#define SCM_SLOT(x, i) (SCM_INST(x)[i])
#define SCM_SUBCLASSP(c1, c2) SCM_NNULLP (scm_sloppy_memq (c2, SCM_SLOT (c1, scm_si_cpl)))
#define SCM_SUBCLASSP(c1, c2) SCM_NNULLP (scm_memq (c2, SCM_SLOT (c1, scm_si_cpl)))
#define SCM_IS_A_P(x, c) (SCM_NIMP (x) \
&& SCM_INSTANCEP (x) \
&& SCM_SUBCLASSP (SCM_CLASS_OF (x), c))