mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

remove scm_add_method

Browse source 
* libguile/goops.h:
* libguile/goops.c (scm_add_method): Remove this function. It didn't
  work, and even if we fixed it to work it wouldn't be as good as using
  Scheme's `add-method!'.
This commit is contained in:
Andy Wingo 2009-12-15 11:58:04 +01:00
parent 31c944228c
commit d5f9864ffc
2 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/goops.c
View file

@ -2648,14 +2648,6 @@ scm_ensure_accessor (SCM name)
return gf; return gf;
} }
SCM_SYMBOL (sym_internal_add_method_x, "internal-add-method!");
void
scm_add_method (SCM gf, SCM m)
{
scm_eval (scm_list_3 (sym_internal_add_method_x, gf, m), scm_module_goops);
}
#ifdef GUILE_DEBUG #ifdef GUILE_DEBUG
/* /*
* Debugging utilities * Debugging utilities

1
libguile/goops.h
View file

@ -237,7 +237,6 @@ SCM_API void scm_load_goops (void);
SCM_API SCM scm_make_extended_class (char const *type_name, int applicablep); SCM_API SCM scm_make_extended_class (char const *type_name, int applicablep);
SCM_API void scm_make_port_classes (long ptobnum, char *type_name); SCM_API void scm_make_port_classes (long ptobnum, char *type_name);
SCM_API SCM scm_ensure_accessor (SCM name); SCM_API SCM scm_ensure_accessor (SCM name);
SCM_API void scm_add_method (SCM gf, SCM m);
SCM_API SCM scm_class_of (SCM obj); SCM_API SCM scm_class_of (SCM obj);
/* Low level functions exported */ /* Low level functions exported */