[Guile-commits] 42/88: Remove pure-generic?

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 3292354a4d09c3266e45ae7cfcf7c571e2b2a766
Author: Andy Wingo <wi...@pobox.com>
Date:   Sat Jan 10 00:52:26 2015 +0100

    Remove pure-generic?
    
    * libguile/goops.h:
    * libguile/goops.c (scm_pure_generic_p): Remove function only compiled
      in debug mode.
---
 libguile/goops.c |   16 ----------------
 libguile/goops.h |    4 ----
 2 files changed, 0 insertions(+), 20 deletions(-)

diff --git a/libguile/goops.c b/libguile/goops.c
index 53b69a9..6e1fceb 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -1314,22 +1314,6 @@ scm_ensure_accessor (SCM name)
   return gf;
 }
 
-#ifdef GUILE_DEBUG
-/*
- * Debugging utilities
- */
-
-SCM_DEFINE (scm_pure_generic_p, "pure-generic?", 1, 0, 0,
-           (SCM obj),
-           "Return @code{#t} if @var{obj} is a pure generic.")
-#define FUNC_NAME s_scm_pure_generic_p
-{
-  return scm_from_bool (SCM_PUREGENERICP (obj));
-}
-#undef FUNC_NAME
-
-#endif /* GUILE_DEBUG */
-
 /*
  * Initialization
  */
diff --git a/libguile/goops.h b/libguile/goops.h
index 077efc6..c5ed39f 100644
--- a/libguile/goops.h
+++ b/libguile/goops.h
@@ -138,10 +138,6 @@ SCM_API SCM scm_sys_allocate_instance (SCM c, SCM 
initargs);
 SCM_API SCM scm_slot_ref (SCM obj, SCM slot_name);
 SCM_API SCM scm_slot_set_x (SCM obj, SCM slot_name, SCM value);
 
-#ifdef GUILE_DEBUG
-SCM_API SCM scm_pure_generic_p (SCM obj);
-#endif
-
 SCM_INTERNAL void scm_i_inherit_applicable (SCM c);
 SCM_INTERNAL SCM scm_i_get_keyword (SCM key, SCM l, long len,
                                    SCM default_value, const char *subr);