mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

Goops slot-unbound / slot-missing cleanups

Browse source 
* libguile/goops.c: Remove useless slot-unbound / slot-missing
  captures.
This commit is contained in:
Andy Wingo 2015-01-10 00:51:26 +01:00
parent ade4cf4c92
commit 0cd9a69413
1 changed files with 0 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/goops.c
View file

@ -65,8 +65,6 @@
though, as in the rest of Guile. */
static SCM var_make_standard_class = SCM_BOOL_F;
static SCM var_slot_unbound = SCM_BOOL_F;
static SCM var_slot_missing = SCM_BOOL_F;
static SCM var_change_class = SCM_BOOL_F;
static SCM var_make = SCM_BOOL_F;
static SCM var_class_name = SCM_BOOL_F;
@ -1475,10 +1473,6 @@ SCM_DEFINE (scm_sys_goops_loaded, "%goops-loaded", 0, 0, 0,
var_method_specializers = scm_c_lookup ("method-specializers");
var_method_procedure = scm_c_lookup ("method-procedure");
var_slot_unbound =
scm_module_variable (scm_module_goops, sym_slot_unbound);
var_slot_missing =
scm_module_variable (scm_module_goops, sym_slot_missing);
var_change_class =
scm_module_variable (scm_module_goops, sym_change_class);
setup_extended_primitive_generics ();