diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-11-15 16:16:06 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-11-15 16:16:06 +0000 |
commit | 036737fce8891805b2a95b64c85d97bc72387ec5 (patch) | |
tree | cf7bbcfa0f2ef5c9000efbf12ca76c3585bc55b4 /libguile/objects.h | |
parent | a6e350ddef5f6b57a069777508a8729e509614d1 (diff) | |
download | guile-036737fce8891805b2a95b64c85d97bc72387ec5.tar.gz |
* objects.c (scm_i_make_class_object): Renamed from
make_class_object; exported; error checking moved to
scm_make_class_object and scm_make_subclass_object.
(scm_make_class_object, scm_make_subclass_object): Use
scm_i_make_class_object.
(scm_make_subclass_object): Let the subclass have same metaclass
as the superclass.
Diffstat (limited to 'libguile/objects.h')
-rw-r--r-- | libguile/objects.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/objects.h b/libguile/objects.h index 18d335112..9f460ca58 100644 --- a/libguile/objects.h +++ b/libguile/objects.h @@ -177,6 +177,8 @@ extern SCM scm_set_object_procedure_x (SCM obj, SCM procs); extern SCM scm_make_class_object (SCM metaclass, SCM layout); extern SCM scm_make_subclass_object (SCM class, SCM layout); +extern SCM scm_i_make_class_object (SCM metaclass, SCM layout_string, + unsigned long flags); extern void scm_init_objects SCM_P ((void)); #endif /* OBJECTSH */ |