mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

use the new public metatables from struct.c

Browse source 
* libguile/procs.c (scm_init_procs): No need to lookup the
  applicable-struct-with-setter vtable, as it is now exported.
This commit is contained in:
Andy Wingo 2009-12-08 21:52:15 +01:00
parent 96a44c1cab
commit bbd41a6a21
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/procs.c
View file

@ -234,10 +234,11 @@ SCM_PRIMITIVE_GENERIC (scm_setter, "setter", 1, 0, 0,
void void
scm_init_procs () scm_init_procs ()
{ {
SCM setter_vtable_vtable = pws_vtable =
scm_variable_ref (scm_c_lookup ("<applicable-struct-with-setter-vtable>")); scm_c_make_struct (scm_applicable_struct_with_setter_vtable_vtable,
pws_vtable = scm_make_struct (setter_vtable_vtable, SCM_INUM0, 0,
scm_list_1 (scm_from_locale_symbol ("pwpw"))); 1,
SCM_UNPACK (scm_from_locale_symbol ("pwpw")));
#include "libguile/procs.x" #include "libguile/procs.x"
} }