From cb3ea03dd1f89af9c82b220882a5e8c4fbe7dc3e Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 13 Jan 2015 21:59:03 +0100
Subject: [PATCH] scm_make cleanup

* libguile/goops.c (scm_make): Remove SCM_DEFINE around scm_make; the
  real definition is in Scheme.
---
 libguile/goops.c | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/libguile/goops.c b/libguile/goops.c
index f829695c3..f2ca98194 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -799,15 +799,11 @@ scm_wta_dispatch_n (SCM gf, SCM args, int pos, const char *subr)
 
 
 
-SCM_DEFINE (scm_make, "make",  0, 0, 1,
-	    (SCM args),
-	    "Make a new object.  @var{args} must contain the class and\n"
-	    "all necessary initialization information.")
-#define FUNC_NAME s_scm_make
+SCM
+scm_make (SCM args)
 {
   return scm_apply_0 (scm_variable_ref (var_make), args);
 }
-#undef FUNC_NAME