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

symbolic name for the tag, scm_tc3_cons_gloc, instead of just
saying "1".

diff --git a/libguile/struct.c b/libguile/struct.c
index f5cf283..91dee41 100644 (file)
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -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;