diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-11-18 11:15:43 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2012-07-06 18:32:14 +0200 |
| commit | 0bb1353a6b618f1b355da13b6b7c3b56b201a2dc (patch) | |
| tree | ce6e47ec2fef82710df55b2e2e1bda0750d2330e | |
| parent | 66b1dbf649c82e34aa6d62a982cae3218419d160 (diff) | |
| download | guile-0bb1353a6b618f1b355da13b6b7c3b56b201a2dc.tar.gz | |
add Scheme binding for scm_standard_vtable_vtable
* libguile/struct.c (scm_init_struct): Export <standard-vtable> to
Scheme.
| -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 e6c7f4bdc..74b903e9d 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -1027,6 +1027,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, |