diff options
| author | Andy Wingo <wingo@pobox.com> | 2009-12-15 11:58:04 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2009-12-20 15:34:19 +0100 |
| commit | d5f9864ffc30701af0e393b692fb0bded8c6a95a (patch) | |
| tree | 2ab8bd5c0d3aec1bb79b21e8bce20de7fa376195 | |
| parent | 31c944228ca3694bed59d024283ba236be630f0f (diff) | |
| download | guile-d5f9864ffc30701af0e393b692fb0bded8c6a95a.tar.gz | |
remove scm_add_method
* 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!'.
| -rw-r--r-- | libguile/goops.c | 8 | ||||
| -rw-r--r-- | libguile/goops.h | 1 |
2 files changed, 0 insertions, 9 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index fe54ce776..9fb6d4a6c 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -2648,14 +2648,6 @@ scm_ensure_accessor (SCM name) 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 /* * Debugging utilities diff --git a/libguile/goops.h b/libguile/goops.h index b775ae3d8..06ade43a4 100644 --- a/libguile/goops.h +++ b/libguile/goops.h @@ -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 void scm_make_port_classes (long ptobnum, char *type_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); /* Low level functions exported */ |