mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

make some applicable struct vtable-vtable public to C

Browse source 
* libguile/struct.h (scm_standard_vtable_vtable)
  (scm_applicable_struct_vtable_vtable)
  (scm_applicable_struct_with_setter_vtable_vtable)
* libguile/struct.c: Make these stock meta-tables public to C.
This commit is contained in:
Andy Wingo 2009-12-08 21:46:47 +01:00
parent 34dfef5135
commit db5ed68588
2 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/struct.h
View file

@ -141,6 +141,10 @@ typedef void (*scm_t_struct_finalize) (SCM obj);
#define SCM_SET_STRUCT_TABLE_CLASS(X, CLASS) SCM_SETCDR (X, CLASS)
SCM_API SCM scm_struct_table;
SCM_API SCM scm_standard_vtable_vtable;
SCM_API SCM scm_applicable_struct_vtable_vtable;
SCM_API SCM scm_applicable_struct_with_setter_vtable_vtable;
SCM_API SCM scm_make_struct_layout (SCM fields);