dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Deprecate scm_no_applicable_method C export

Browse source 
* libguile/deprecated.c (scm_init_deprecated_goops)
  (scm_no_applicable_method):
* libguile/goops.h:
* libguile/goops.c (scm_no_applicable_method)
  (scm_sys_goops_early_init): Deprecate scm_no_applicable_method C
  export.
This commit is contained in:
Andy Wingo 2015-01-06 11:50:16 -05:00
commit 623559f311
4 changed files with 18 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/goops.c
View file

@ -172,8 +172,6 @@ SCM scm_port_class[3 * SCM_I_MAX_PORT_TYPE_COUNT];
/* SMOB classes. */
SCM scm_smob_class[SCM_I_MAX_SMOB_TYPE_COUNT];
SCM scm_no_applicable_method;
static SCM scm_make_unbound (void);
static SCM scm_unbound_p (SCM obj);
static SCM scm_assert_bound (SCM value, SCM obj);
@ -1739,8 +1737,6 @@ SCM_DEFINE (scm_sys_goops_early_init, "%goops-early-init", 0, 0, 0,
create_struct_classes ();
create_port_classes ();
scm_no_applicable_method = scm_variable_ref (scm_c_lookup ("no-applicable-method"));
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME
@ -1761,6 +1757,11 @@ SCM_DEFINE (scm_sys_goops_loaded, "%goops-loaded", 0, 0, 0,
var_change_class =
scm_module_variable (scm_module_goops, sym_change_class);
setup_extended_primitive_generics ();
#if (SCM_ENABLE_DEPRECATED == 1)
scm_init_deprecated_goops ();
#endif
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME