summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-11-18 11:31:52 +0100
committerAndy Wingo <wingo@pobox.com>2011-11-24 11:47:36 +0100
commitfb5f79a8b0e0915d1bf228c20a06a95ad201764f (patch)
tree117fcee916a594a9851a9293ee1a80799734ee94
parent72d4db5d04a63d15f43c790dd7d2ac20abaa6cfd (diff)
downloadguile-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.c1
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);