diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-03-19 08:57:47 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-03-19 08:57:47 +0000 |
commit | 74b6d6e4565199ad868af57288316deb21742da6 (patch) | |
tree | 0f11afde780e9a0a8afddc1acaaee8cab3f46f0c /libguile/objects.h | |
parent | 5c9e7dad75a4b17581a64dcbee1a3e7dbcddaa84 (diff) | |
download | guile-74b6d6e4565199ad868af57288316deb21742da6.tar.gz |
* goops.c (make_class_from_template): New fourth arg:
applicablep.
(scm_class_extended_generic_with_setter, scm_class_self): Fixed
cpls.
* smob.c (scm_set_smob_apply): Call scm_i_inherit_applicable.
* goops.c, objects.c, objects.h (scm_make_extended_class): New
second arg: applicablep.
(scm_i_inherit_applicable): New function.
* goops.c, goops.h (scm_class_applicable,
scm_class_extended_accessor): New classes.
Diffstat (limited to 'libguile/objects.h')
-rw-r--r-- | libguile/objects.h | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/objects.h b/libguile/objects.h index 5bf79fc9b..a10ea9af7 100644 --- a/libguile/objects.h +++ b/libguile/objects.h @@ -3,7 +3,7 @@ #ifndef SCM_OBJECTS_H #define SCM_OBJECTS_H -/* Copyright (C) 1996,1999,2000,2001 Free Software Foundation, Inc. +/* Copyright (C) 1996,1999,2000,2001, 2003 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -221,7 +221,8 @@ SCM_API SCM *scm_smob_class; SCM_API SCM scm_no_applicable_method; /* Goops functions. */ -SCM_API SCM scm_make_extended_class (char *type_name); +SCM_API SCM scm_make_extended_class (char *type_name, int applicablep); +SCM_API void scm_i_inherit_applicable (SCM c); SCM_API void scm_make_port_classes (long ptobnum, char *type_name); SCM_API void scm_change_object_class (SCM, SCM, SCM); SCM_API SCM scm_memoize_method (SCM x, SCM args); |