From d5f9864ffc30701af0e393b692fb0bded8c6a95a Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 15 Dec 2009 11:58:04 +0100
Subject: [PATCH] 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!'.
---
 libguile/goops.c | 8 --------
 libguile/goops.h | 1 -
 2 files changed, 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 */