[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 28/88: Remove scm_at_assert_bound_ref
From: |
Andy Wingo |
Subject: |
[Guile-commits] 28/88: Remove scm_at_assert_bound_ref |
Date: |
Fri, 23 Jan 2015 15:25:32 +0000 |
wingo pushed a commit to branch master
in repository guile.
commit 6a201bc4dd0a919fa18ae1bd31621115f679487d
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 b0266c9..cb33217 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);
@@ -730,19 +729,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 **/
- [Guile-commits] 15/88: `class' is a hygienic macro, (continued)
- [Guile-commits] 15/88: `class' is a hygienic macro, Andy Wingo, 2015/01/23
- [Guile-commits] 22/88: Remove useless scm_s_slot_set_x export, Andy Wingo, 2015/01/23
- [Guile-commits] 11/88: Remove unused %fast-slot-ref / %fast-slot-set! from GOOPS, Andy Wingo, 2015/01/23
- [Guile-commits] 27/88: Remove hashset slots from GOOPS classes, Andy Wingo, 2015/01/23
- [Guile-commits] 25/88: Generics with setters have <applicable-struct-with-setter> layout, Andy Wingo, 2015/01/23
- [Guile-commits] 13/88: Move GOOPS boot to Scheme, Andy Wingo, 2015/01/23
- [Guile-commits] 31/88: More unused code removal in GOOPS, Andy Wingo, 2015/01/23
- [Guile-commits] 29/88: Remove scm_assert_bound, Andy Wingo, 2015/01/23
- [Guile-commits] 19/88: Remove unused scm_t_method and SCM_METHOD, Andy Wingo, 2015/01/23
- [Guile-commits] 32/88: Remove unused union scm_t_debug_info, Andy Wingo, 2015/01/23
- [Guile-commits] 28/88: Remove scm_at_assert_bound_ref,
Andy Wingo <=
- [Guile-commits] 33/88: More goops.c cleanups, and fix a security issue, Andy Wingo, 2015/01/23
- [Guile-commits] 34/88: Remove GOOPS random state, Andy Wingo, 2015/01/23
- [Guile-commits] 36/88: Statically compute offsets for slots of <class> in Scheme, Andy Wingo, 2015/01/23
- [Guile-commits] 21/88: Remove unreachable code in scm_setter, Andy Wingo, 2015/01/23
- [Guile-commits] 18/88: Fold GOOPS compile and dispatch modules into main GOOPS module, Andy Wingo, 2015/01/23
- [Guile-commits] 39/88: Port method and generic accessors to Scheme, Andy Wingo, 2015/01/23
- [Guile-commits] 35/88: Refactor to <class> slot computation, Andy Wingo, 2015/01/23
- [Guile-commits] 38/88: <class> accessors implemented in Scheme, Andy Wingo, 2015/01/23
- [Guile-commits] 30/88: Remove private var_no_applicable_method capture, Andy Wingo, 2015/01/23
- [Guile-commits] 26/88: Deprecate C exports of GOOPS classes., Andy Wingo, 2015/01/23