diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-18 11:15:43 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-24 11:47:36 +0100 |
commit | 72d4db5d04a63d15f43c790dd7d2ac20abaa6cfd (patch) | |
tree | 3b21579576e09aefcf1ac853dc2165ae4c4aa7e8 /libguile/struct.c | |
parent | fbe1cb7f64a6af5c3dd6b94a9b176a28124f5c9b (diff) | |
download | guile-72d4db5d04a63d15f43c790dd7d2ac20abaa6cfd.tar.gz |
add Scheme binding for scm_standard_vtable_vtable
* libguile/struct.c (scm_init_struct): Export <standard-vtable> to
Scheme.
Diffstat (limited to 'libguile/struct.c')
-rw-r--r-- | libguile/struct.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/struct.c b/libguile/struct.c index 8b21330b0..2e0a50354 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -1039,6 +1039,7 @@ scm_init_struct () scm_standard_vtable_vtable = scm_make_vtable_vtable (scm_nullstr, SCM_INUM0, SCM_EOL); + scm_c_define ("<standard-vtable>", scm_standard_vtable_vtable); scm_applicable_struct_vtable_vtable = scm_make_struct (scm_standard_vtable_vtable, SCM_INUM0, |