mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

* goops.c (make_class_from_template): New fourth arg:

Browse source 
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.
This commit is contained in:
Mikael Djurfeldt 2003-03-19 08:57:47 +00:00
parent 5c9e7dad75
commit 74b6d6e456
6 changed files with 126 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/objects.h
View file

@ -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);