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

* struct.c (scm_make_struct, scm_make_vtable_vtable): Use the

Browse source 
symbolic name for the tag, scm_tc3_cons_gloc, instead of just
saying "1".
This commit is contained in:
Jim Blandy 1996-10-11 07:56:34 +00:00
parent a9d61ae5c2
commit 35457f1e68
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/struct.c
View file

@ -327,7 +327,7 @@ scm_make_struct (vtable, tail_array_size, init)
+ tail_elts);
data[scm_struct_i_tag] = struct_num++;
SCM_SETCDR (handle, data);
SCM_SETCAR (handle, ((SCM)SCM_STRUCT_DATA (vtable)) + 1);
SCM_SETCAR (handle, ((SCM)SCM_STRUCT_DATA (vtable)) + scm_tc3_cons_gloc);
init_struct (handle, tail_elts, init);
SCM_ALLOW_INTS;
return handle;
@ -377,7 +377,7 @@ scm_make_vtable_vtable (extra_fields, tail_array_size, init)
+ tail_elts);
data[scm_struct_i_tag] = struct_num++;
SCM_SETCDR (handle, data);
SCM_SETCAR (handle, ((SCM)data) + 1);
SCM_SETCAR (handle, ((SCM)data) + scm_tc3_cons_gloc);
SCM_STRUCT_LAYOUT (handle) = layout;
init_struct (handle, tail_elts, scm_cons (layout, init));
SCM_ALLOW_INTS;