summaryrefslogtreecommitdiff
path: root/libguile/objects.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-10-31 11:17:12 +0100
committerAndy Wingo <wingo@pobox.com>2009-11-15 20:28:11 +0100
commit48c7c44e70e6ba80fe16bfb179320cffb6a03996 (patch)
treeab8708dc99b8030af5b4b9a513596960becd8a62 /libguile/objects.c
parent730d8ad9e64c3d4b31871a50a4c790b7548bc478 (diff)
downloadguile-48c7c44e70e6ba80fe16bfb179320cffb6a03996.tar.gz
remove unused things from object.[ch]
* libguile/objects.h: * libguile/objects.c (scm_object_procedure): Remove, it was only compiled with SCM_DEBUG. * libguile/objects.h: * libguile/objects.c (scm_make_class_object, scm_make_subclass_object, (scm_i_make_class_object, scm_metaclass_standard): Remove also. These implemented an undocumented object system, and are totally replaced by GOOPS.
Diffstat (limited to 'libguile/objects.c')
-rw-r--r--libguile/objects.c63
1 files changed, 1 insertions, 62 deletions
diff --git a/libguile/objects.c b/libguile/objects.c
index 5889c1bf6..6ce7d7c16 100644
--- a/libguile/objects.c
+++ b/libguile/objects.c
@@ -253,68 +253,7 @@ SCM_SET_ENTITY_PROCEDURE (obj, proc);
}
#undef FUNC_NAME
-#ifdef GUILE_DEBUG
-SCM_DEFINE (scm_object_procedure, "object-procedure", 1, 0, 0,
- (SCM obj),
- "Return the object procedure of @var{obj}. @var{obj} must be\n"
- "an entity.")
-#define FUNC_NAME s_scm_object_procedure
-{
- SCM_ASSERT (SCM_STRUCTP (obj) && SCM_I_ENTITYP (obj),
- obj, SCM_ARG1, FUNC_NAME);
- return SCM_ENTITY_PROCEDURE (obj);
-}
-#undef FUNC_NAME
-#endif /* GUILE_DEBUG */
-
-/* The following procedures are not a part of Goops but a minimal
- * object system built upon structs. They are here for those who
- * want to implement their own object system.
- */
-
-SCM
-scm_i_make_class_object (SCM meta,
- SCM layout_string,
- unsigned long flags)
-{
- SCM c;
- SCM layout = scm_make_struct_layout (layout_string);
- c = scm_make_struct (meta,
- SCM_INUM0,
- scm_list_4 (layout, SCM_BOOL_F, SCM_EOL, SCM_EOL));
- SCM_SET_CLASS_FLAGS (c, flags);
- return c;
-}
-
-SCM_DEFINE (scm_make_class_object, "make-class-object", 2, 0, 0,
- (SCM metaclass, SCM layout),
- "Create a new class object of class @var{metaclass}, with the\n"
- "slot layout specified by @var{layout}.")
-#define FUNC_NAME s_scm_make_class_object
-{
- unsigned long flags = 0;
- SCM_VALIDATE_STRUCT (1, metaclass);
- SCM_VALIDATE_STRING (2, layout);
- return scm_i_make_class_object (metaclass, layout, flags);
-}
-#undef FUNC_NAME
-
-SCM_DEFINE (scm_make_subclass_object, "make-subclass-object", 2, 0, 0,
- (SCM class, SCM layout),
- "Create a subclass object of @var{class}, with the slot layout\n"
- "specified by @var{layout}.")
-#define FUNC_NAME s_scm_make_subclass_object
-{
- SCM pl;
- SCM_VALIDATE_STRUCT (1, class);
- SCM_VALIDATE_STRING (2, layout);
- pl = SCM_PACK (SCM_STRUCT_DATA (class) [scm_vtable_index_layout]);
- pl = scm_symbol_to_string (pl);
- return scm_i_make_class_object (SCM_STRUCT_VTABLE (class),
- scm_string_append (scm_list_2 (pl, layout)),
- SCM_CLASS_FLAGS (class));
-}
-#undef FUNC_NAME
+#define SCM_METACLASS_STANDARD_LAYOUT ""
void
scm_init_objects ()