diff options
| author | Andy Wingo <wingo@pobox.com> | 2015-01-11 00:17:22 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2015-01-23 16:16:01 +0100 |
| commit | 4a28ef1086a1fa6c890f7306ca81161cdd817119 (patch) | |
| tree | 3a9139ccd68c34bb57dc4ca1a6d148466d1b13d9 /libguile/goops.h | |
| parent | f6088819c8b010fc20811131f8fce0dd67a6bf74 (diff) | |
| download | guile-4a28ef1086a1fa6c890f7306ca81161cdd817119.tar.gz | |
Rewrite %initialize-object in Scheme
* libguile/goops.h:
* libguile/goops.c (scm_sys_initialize_object): Remove C interface.
This function was only really useful as part of a GOOPS initialize
method but was not exported from the goops module.
* module/oop/goops.scm (get-keyword, %initialize-object): Implement in
Scheme.
Diffstat (limited to 'libguile/goops.h')
| -rw-r--r-- | libguile/goops.h | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/libguile/goops.h b/libguile/goops.h index 4550baab8..f2655a81a 100644 --- a/libguile/goops.h +++ b/libguile/goops.h @@ -136,7 +136,6 @@ SCM_INTERNAL void scm_i_inherit_applicable (SCM c); SCM_INTERNAL SCM scm_i_get_keyword (SCM key, SCM l, long len, SCM default_value, const char *subr); SCM_API SCM scm_get_keyword (SCM key, SCM l, SCM default_value); -SCM_API SCM scm_sys_initialize_object (SCM obj, SCM initargs); SCM_API SCM scm_sys_inherit_magic_x (SCM c, SCM dsupers); SCM_API SCM scm_instance_p (SCM obj); SCM_API int scm_is_generic (SCM x); |