From 2bcb278a30f53b68021d4c7e369df21351244b4c Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 16 Jan 2015 13:18:05 +0100 Subject: 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. --- libguile/deprecated.h | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'libguile/deprecated.h') 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); -- cgit v1.2.3