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

* goops.c, objects.c, objects.h, eval.c (scm_make_extended_class,

Browse source 
scm_make_port_classes, scm_change_object_class,
scm_memoize_method): Changed to ordinary functions (was plugin
slots).
This commit is contained in:
Mikael Djurfeldt 2000-10-25 14:50:28 +00:00
parent acfee8e1d0
commit 5e8904311f
3 changed files with 5 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/eval.c
View file

@ -104,8 +104,6 @@ char *alloca ();
#include "libguile/validate.h"
#include "libguile/eval.h"
SCM (*scm_memoize_method) (SCM, SCM);
/* The evaluator contains a plethora of EVAL symbols.

4
libguile/objects.c
View file

@ -82,10 +82,6 @@ SCM *scm_smob_class = 0;
SCM scm_no_applicable_method;
SCM (*scm_make_extended_class) (char *type_name);
void (*scm_make_port_classes) (int ptobnum, char *type_name);
void (*scm_change_object_class) (SCM, SCM, SCM);
/* This function is used for efficient type dispatch. */
SCM
scm_class_of (SCM x)

10
libguile/objects.h
View file

@ -210,11 +210,11 @@ extern SCM *scm_smob_class;
extern SCM scm_no_applicable_method;
/* Plugin Goops functions. */
extern SCM (*scm_make_extended_class) (char *type_name);
extern void (*scm_make_port_classes) (int ptobnum, char *type_name);
extern void (*scm_change_object_class) (SCM, SCM, SCM);
extern SCM (*scm_memoize_method) (SCM x, SCM args);
/* Goops functions. */
extern SCM scm_make_extended_class (char *type_name);
extern void scm_make_port_classes (int ptobnum, char *type_name);
extern void scm_change_object_class (SCM, SCM, SCM);
extern SCM scm_memoize_method (SCM x, SCM args);
extern SCM scm_class_of (SCM obj);
extern SCM scm_mcache_lookup_cmethod (SCM cache, SCM args);