diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-18 11:31:52 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-24 11:47:36 +0100 |
commit | fb5f79a8b0e0915d1bf228c20a06a95ad201764f (patch) | |
tree | 117fcee916a594a9851a9293ee1a80799734ee94 | |
parent | 72d4db5d04a63d15f43c790dd7d2ac20abaa6cfd (diff) | |
download | guile-fb5f79a8b0e0915d1bf228c20a06a95ad201764f.tar.gz |
Scheme standard-vtable-fields binding
* libguile/struct.c (scm_init_struct): Export standard-vtable-fields 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 2e0a50354..e66d6bc89 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -1034,6 +1034,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); |