From bbd41a6a217b53b0382da81c47d7f7110de31273 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 8 Dec 2009 21:52:15 +0100 Subject: [PATCH] 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. --- libguile/procs.c | 9 +++++---- 1 file 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 ("")); - 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" }