[Guile-commits] 27/42: Remove scm_at_assert_bound_ref

[Andy Wingo]

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

commit 0a38a0e4df664bc94f1038d206179d5c00c67480
Author: Andy Wingo <address@hidden>
Date:   Tue Jan 6 14:51:44 2015 -0500

    Remove scm_at_assert_bound_ref
    
    * libguile/goops.c (scm_at_assert_bound_ref): Remove unused, unexported
      function.
---
 libguile/goops.c |   14 --------------
 1 files changed, 0 insertions(+), 14 deletions(-)

diff --git a/libguile/goops.c b/libguile/goops.c
index d426b1f..266932c 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -176,7 +176,6 @@ SCM scm_i_smob_class[SCM_I_MAX_SMOB_TYPE_COUNT];
 static SCM scm_make_unbound (void);
 static SCM scm_unbound_p (SCM obj);
 static SCM scm_assert_bound (SCM value, SCM obj);
-static SCM scm_at_assert_bound_ref (SCM obj, SCM index);
 static SCM scm_sys_bless_applicable_struct_vtables_x (SCM applicable,
                                                       SCM setter);
 static SCM scm_sys_bless_pure_generic_vtable_x (SCM vtable);
@@ -728,19 +727,6 @@ SCM_DEFINE (scm_assert_bound, "assert-bound", 2, 0, 0,
 }
 #undef FUNC_NAME
 
-SCM_DEFINE (scm_at_assert_bound_ref, "@assert-bound-ref", 2, 0, 0,
-           (SCM obj, SCM index),
-           "Like @code{assert-bound}, but use @var{index} for accessing\n"
-           "the value from @var{obj}.")
-#define FUNC_NAME s_scm_at_assert_bound_ref
-{
-  SCM value = SCM_SLOT (obj, scm_to_int (index));
-  if (SCM_GOOPS_UNBOUNDP (value))
-    return scm_call_1 (SCM_VARIABLE_REF (var_slot_unbound), obj);
-  return value;
-}
-#undef FUNC_NAME
-
 
 
 /** Utilities **/