diff --git a/libguile/eval.c b/libguile/eval.c index 5b89e197c..92f20a2c5 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -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. diff --git a/libguile/objects.c b/libguile/objects.c index dab44d1f0..700662ba2 100644 --- a/libguile/objects.c +++ b/libguile/objects.c @@ -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) diff --git a/libguile/objects.h b/libguile/objects.h index 389552c2b..aa5836e9f 100644 --- a/libguile/objects.h +++ b/libguile/objects.h @@ -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);