summaryrefslogtreecommitdiff
path: root/libguile/procs.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-12-08 21:52:15 +0100
committerAndy Wingo <wingo@pobox.com>2009-12-08 23:13:20 +0100
commitbbd41a6a217b53b0382da81c47d7f7110de31273 (patch)
tree366efe8c9d40fe859e96bd30620c530e947f3cd3 /libguile/procs.c
parent96a44c1cab34e2cc3cf5a04a0c026f0863386137 (diff)
downloadguile-bbd41a6a217b53b0382da81c47d7f7110de31273.tar.gz
use the new public metatables from struct.c
* libguile/procs.c (scm_init_procs): No need to lookup the applicable-struct-with-setter vtable, as it is now exported.
Diffstat (limited to 'libguile/procs.c')
-rw-r--r--libguile/procs.c9
1 files changed, 5 insertions, 4 deletions
diff --git a/libguile/procs.c b/libguile/procs.c
index f62006372..6c0391123 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -234,10 +234,11 @@ SCM_PRIMITIVE_GENERIC (scm_setter, "setter", 1, 0, 0,
void
scm_init_procs ()
{
- SCM setter_vtable_vtable =
- scm_variable_ref (scm_c_lookup ("<applicable-struct-with-setter-vtable>"));
- pws_vtable = scm_make_struct (setter_vtable_vtable, SCM_INUM0,
- scm_list_1 (scm_from_locale_symbol ("pwpw")));
+ pws_vtable =
+ scm_c_make_struct (scm_applicable_struct_with_setter_vtable_vtable,
+ 0,
+ 1,
+ SCM_UNPACK (scm_from_locale_symbol ("pwpw")));
#include "libguile/procs.x"
}