From 5e03762c12262629f059d60a47f9d3c08e0102b7 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 4 Mar 2001 20:46:04 +0000 Subject: [PATCH] * goops.c, goops.h (scm_sys_pre_expand_closure_x): Removed. (scm_sys_tag_body): Added. --- libguile/ChangeLog | 5 +++++ libguile/goops.c | 19 +++++-------------- libguile/goops.h | 2 +- 3 files changed, 11 insertions(+), 15 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 83d86343c..2d1c80d8d 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2001-03-04 Mikael Djurfeldt + + * goops.c, goops.h (scm_sys_pre_expand_closure_x): Removed. + (scm_sys_tag_body): Added. + 2001-03-04 Dirk Herrmann * continuations.c (continuation_apply), eval.c (scm_m_lambda, diff --git a/libguile/goops.c b/libguile/goops.c index e4dff3da8..f3250c210 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -934,21 +934,12 @@ SCM_DEFINE (scm_accessor_method_slot_definition, "accessor-method-slot-definitio } #undef FUNC_NAME -SCM_DEFINE (scm_sys_pre_expand_closure_x, "%pre-expand-closure!", 1, 0, 0, - (SCM closure), +SCM_DEFINE (scm_sys_tag_body, "%tag-body", 1, 0, 0, + (SCM body), "Internal GOOPS magic---don't use this function!") -#define FUNC_NAME s_scm_sys_pre_expand_closure_x -{ - SCM formals, code, env; - SCM_VALIDATE_CLOSURE (1, closure); - formals = SCM_CAR (SCM_CODE (closure)); - env = SCM_EXTEND_ENV (formals, formals, SCM_ENV (closure)); - code = SCM_CDR (SCM_CODE (closure)); - while (SCM_NNULLP (SCM_CDR (code)) - && SCM_IMP (SCM_CAR (code)) - && SCM_ISYMP (SCM_CAR (code))) - code = scm_m_expand_body (code, env); - return closure; +#define FUNC_NAME s_scm_sys_tag_body +{ + return scm_cons (SCM_IM_LAMBDA, body); } #undef FUNC_NAME diff --git a/libguile/goops.h b/libguile/goops.h index a443d4cc0..069fbfb38 100644 --- a/libguile/goops.h +++ b/libguile/goops.h @@ -258,7 +258,7 @@ SCM scm_method_generic_function (SCM obj); SCM scm_method_specializers (SCM obj); SCM scm_method_procedure (SCM obj); SCM scm_accessor_method_slot_definition (SCM obj); -SCM scm_sys_pre_expand_closure_x (SCM closure); +SCM scm_sys_tag_body (SCM body); SCM scm_sys_fast_slot_ref (SCM obj, SCM index); SCM scm_sys_fast_slot_set_x (SCM obj, SCM index, SCM value); SCM scm_slot_ref_using_class (SCM cls, SCM obj, SCM slot_name); -- 2.20.1