[Guile-commits] 40/87: Remove pure-generic?

[Andy Wingo]

wingo pushed a commit to branch wip-goops-refactor
in repository guile.

commit 77d933980fff13c18fec6940719ffc380ae4c5b9
Author: Andy Wingo <address@hidden>
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 78abe84..c0f1de8 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);