From 4d34fbe1815be52cd669b53e03158ab931d9e80b Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 3 Nov 2009 22:41:59 +0100
Subject: [PATCH] remove goops-local %tag-body

* libguile/goops.c (scm_sys_tag_body): Remove goops-local hack that is
  no longer necessary.
---
 libguile/goops.c | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/libguile/goops.c b/libguile/goops.c
index 12d0e4b7c..b5f678f4c 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -1166,15 +1166,6 @@ SCM_DEFINE (scm_accessor_method_slot_definition, "accessor-method-slot-definitio
 }
 #undef FUNC_NAME
 
-SCM_DEFINE (scm_sys_tag_body, "%tag-body", 1, 0, 0,
-	    (SCM body),
-	    "Internal GOOPS magic---don't use this function!")
-#define FUNC_NAME s_scm_sys_tag_body
-{
-  return scm_cons (SCM_IM_LAMBDA, body);
-}
-#undef FUNC_NAME
-
 /******************************************************************************
  *
  * S l o t   a c c e s s