mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

first step towards effective methods

Browse source 
* libguile/goops.c (create_standard_classes):
* libguile/goops.h *scm_si_applicable_methods, scm_si_effective_method)
  (scm_si_applicable_setter_methods, scm_si_effective_setter_method):
  Add space for the new form of the generic cache and effective method.
This commit is contained in:
Andy Wingo 2009-11-05 11:32:16 +01:00
parent b6cf4d0265
commit 0f84ac3fe6
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/goops.c
View file

@ -2594,8 +2594,12 @@ create_standard_classes (void)
k_init_value,
SCM_EOL),
scm_from_locale_symbol ("%cache"),
scm_from_locale_symbol ("applicable-methods"),
scm_from_locale_symbol ("effective-method"),
SCM_UNDEFINED);
SCM setter_slots = scm_list_1 (scm_from_locale_symbol ("%setter-cache"));
SCM setter_slots = scm_list_3 (scm_from_locale_symbol ("%setter-cache"),
scm_from_locale_symbol ("applicable-setter-methods"),
scm_from_locale_symbol ("effective-setter-method"));
SCM egf_slots = scm_list_1 (scm_list_3 (scm_from_locale_symbol ("extends"),
k_init_value,
SCM_EOL));