mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

The struct vtable data is now an array of scm_bits_t variables.

Browse source
This commit is contained in:
Dirk Herrmann 2000-04-11 22:36:55 +00:00
parent bc66755eef
commit 1c3e63f06d
4 changed files with 21 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/struct.c
View file

@ -500,7 +500,7 @@ SCM_DEFINE (scm_make_vtable_vtable, "make-vtable-vtable", 2, 0, 1,
"make-vtable-vtable");
SCM_SET_CELL_WORD_1 (handle, data);
SCM_SETCAR (handle, ((SCM)data) + scm_tc3_cons_gloc);
SCM_STRUCT_LAYOUT (handle) = layout;
SCM_SET_STRUCT_LAYOUT (handle, layout);
scm_struct_init (handle, tail_elts, scm_cons (layout, init));
SCM_ALLOW_INTS;
return handle;