diff options
| author | Andy Wingo <wingo@pobox.com> | 2015-01-16 13:18:05 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2015-01-23 16:16:03 +0100 |
| commit | 2bcb278a30f53b68021d4c7e369df21351244b4c (patch) | |
| tree | 7184edd8dee8c5fb2d3caed5521724440fe9ab24 /libguile/deprecated.h | |
| parent | 9539b20ba92c84296f6e453175844d5a5614d307 (diff) | |
GOOPS: Deprecate "using-class" procs like slot-ref-using-class
* libguile/deprecated.h:
* libguile/goops.c:
* libguile/goops.h:
* libguile/deprecated.c (scm_slot_ref_using_class):
(scm_slot_set_using_class_x):
(scm_slot_bound_using_class_p):
(scm_slot_exists_using_class_p): Deprecate.
* module/oop/goops.scm (slot-ref-using-class, slot-set-using-class!)
(slot-bound-using-class?, slot-exists-using-class?): Deprecate.
Change to check that `class' is indeed the class of `obj', as
required, and then dispatch to slot-ref et al.
Diffstat (limited to 'libguile/deprecated.h')
| -rw-r--r-- | libguile/deprecated.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/deprecated.h b/libguile/deprecated.h index b731e0b84..1f13bde83 100644 --- a/libguile/deprecated.h +++ b/libguile/deprecated.h @@ -212,6 +212,10 @@ SCM_DEPRECATED SCM scm_compute_applicable_methods (SCM gf, SCM args, long len, i SCM_DEPRECATED SCM scm_find_method (SCM l); SCM_DEPRECATED SCM scm_basic_make_class (SCM c, SCM name, SCM dsupers, SCM dslots); SCM_DEPRECATED SCM scm_get_keyword (SCM kw, SCM initargs, SCM default_value); +SCM_DEPRECATED SCM scm_slot_ref_using_class (SCM cls, SCM obj, SCM slot_name); +SCM_DEPRECATED SCM scm_slot_set_using_class_x (SCM cls, SCM obj, SCM slot_name, SCM value); +SCM_DEPRECATED SCM scm_slot_bound_using_class_p (SCM cls, SCM obj, SCM slot_name); +SCM_DEPRECATED SCM scm_slot_exists_using_class_p (SCM cls, SCM obj, SCM slot_name); |