diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-11-18 11:31:52 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2012-07-06 18:32:14 +0200 |
| commit | 2921f537609547e7c9ee0df555a840407313eabd (patch) | |
| tree | 9875d29664ae97ec49a9b715b4f5ceac22a69f09 /libguile/struct.c | |
| parent | 0bb1353a6b618f1b355da13b6b7c3b56b201a2dc (diff) | |
| download | guile-2921f537609547e7c9ee0df555a840407313eabd.tar.gz | |
Scheme standard-vtable-fields binding
* libguile/struct.c (scm_init_struct): Export standard-vtable-fields 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 74b903e9d..a5c4e3a60 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -1022,6 +1022,7 @@ scm_init_struct () GC_REGISTER_DISPLACEMENT (2 * sizeof (scm_t_bits)); required_vtable_fields = scm_from_locale_string (SCM_VTABLE_BASE_LAYOUT); + scm_c_define ("standard-vtable-fields", required_vtable_fields); required_applicable_fields = scm_from_locale_string (SCM_APPLICABLE_BASE_LAYOUT); required_applicable_with_setter_fields = scm_from_locale_string (SCM_APPLICABLE_WITH_SETTER_BASE_LAYOUT); |