From fb5f79a8b0e0915d1bf228c20a06a95ad201764f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 18 Nov 2011 11:31:52 +0100 Subject: [PATCH] Scheme standard-vtable-fields binding * libguile/struct.c (scm_init_struct): Export standard-vtable-fields to Scheme. --- libguile/struct.c | 1 + 1 file changed, 1 insertion(+) 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);