From 2de74cb56e3af44ce624638facfa061603d39c0d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 23 May 2012 12:11:08 +0200 Subject: finish deprecating eval closures * libguile/deprecated.h: * libguile/deprecated.c (scm_eval_closure_lookup) (scm_standard_eval_closure, scm_standard_interface_eval_closure) (scm_eval_closure_module): Deprecate these, as they are unused. * libguile/modules.h: * libguile/modules.c: Remove deprecated code. * module/oop/goops/util.scm (top-level-env, top-level-env?): Deprecate. * module/ice-9/deprecated.scm (set-system-module!): Deprecate. (module-eval-closure): Deprecate, by overriding the core definition to return a fresh eval closure. * module/ice-9/boot-9.scm (make-module): Don't set an eval closure on the module. (the-root-module, the-scm-module): Don't call set-system-module!. --- libguile/deprecated.h | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'libguile/deprecated.h') diff --git a/libguile/deprecated.h b/libguile/deprecated.h index e777d2f80..2970262b2 100644 --- a/libguile/deprecated.h +++ b/libguile/deprecated.h @@ -824,6 +824,14 @@ SCM_DEPRECATED SCM scm_lookup_closure_module (SCM proc); SCM_DEPRECATED SCM scm_module_lookup_closure (SCM module); SCM_DEPRECATED SCM scm_current_module_lookup_closure (void); +SCM_DEPRECATED scm_t_bits scm_tc16_eval_closure; + +#define SCM_EVAL_CLOSURE_P(x) SCM_TYP16_PREDICATE (scm_tc16_eval_closure, x) + +SCM_DEPRECATED SCM scm_eval_closure_lookup (SCM eclo, SCM sym, SCM definep); +SCM_DEPRECATED SCM scm_standard_eval_closure (SCM module); +SCM_DEPRECATED SCM scm_standard_interface_eval_closure (SCM module); +SCM_DEPRECATED SCM scm_eval_closure_module (SCM eval_closure); -- cgit v1.2.3