From 72d4db5d04a63d15f43c790dd7d2ac20abaa6cfd Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 18 Nov 2011 11:15:43 +0100
Subject: [PATCH] add Scheme binding for scm_standard_vtable_vtable

* libguile/struct.c (scm_init_struct): Export <standard-vtable> to
  Scheme.
---
 libguile/struct.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/libguile/struct.c b/libguile/struct.c
index 8b21330b0..2e0a50354 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -1039,6 +1039,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,