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

add Scheme binding for scm_standard_vtable_vtable

Browse source 
* libguile/struct.c (scm_init_struct): Export <standard-vtable> to
  Scheme.
This commit is contained in:
Andy Wingo 2011-11-18 11:15:43 +01:00
parent 66b1dbf649
commit 0bb1353a6b
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/struct.c
View file

@ -1027,6 +1027,7 @@ scm_init_struct ()
scm_standard_vtable_vtable = scm_standard_vtable_vtable =
scm_make_vtable_vtable (scm_nullstr, SCM_INUM0, SCM_EOL); 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_applicable_struct_vtable_vtable =
scm_make_struct (scm_standard_vtable_vtable, SCM_INUM0, scm_make_struct (scm_standard_vtable_vtable, SCM_INUM0,