summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1996-10-11 07:56:34 +0000
committerJim Blandy <jimb@red-bean.com>1996-10-11 07:56:34 +0000
commit35457f1e68ee010f050e32acc5185cba4f43c71f (patch)
tree4d6bc68961cd5cf498db012f59e88eaeb325aaea
parenta9d61ae5c27f089739f71fdd4217fbd446de34be (diff)
downloadguile-35457f1e68ee010f050e32acc5185cba4f43c71f.tar.gz
* 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".
-rw-r--r--libguile/struct.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/struct.c b/libguile/struct.c
index f5cf28342..91dee41c8 100644
--- 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;