From 3f384b343cae612d989a2a065e9741d40ee36f30 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 14 Feb 2007 01:43:51 +0000 Subject: [PATCH] fix object header to use Scheme_Object instead of Scheme_Type svn: r5593 --- collects/mzscheme/examples/bitmatrix.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mzscheme/examples/bitmatrix.c b/collects/mzscheme/examples/bitmatrix.c index ecdfd7996e..e231a27cc1 100644 --- a/collects/mzscheme/examples/bitmatrix.c +++ b/collects/mzscheme/examples/bitmatrix.c @@ -20,7 +20,8 @@ /* Instances of this Bitmatrix structure will be the Scheme bit matirx values: */ typedef struct { - Scheme_Type type; /* Every Scheme value starts with a type tag. The + Scheme_Object so; /* Every Scheme value starts with a Scheme_Object, + which stars with a type tag. The format for the rest of the structure is anything we want it to be. */ unsigned long w, h, l; /* l = w rounded to multiple of LONG_SIZE */ @@ -110,7 +111,7 @@ Scheme_Object *make_bit_matrix(int argc, Scheme_Object **argv) /* Malloc the bit matrix structure. Since we use scheme_malloc, the bit matrix value is GC-able. */ bm = (Bitmatrix *)scheme_malloc_tagged(sizeof(Bitmatrix)); - bm->type = bitmatrix_type; + bm->so.type = bitmatrix_type; /* Try to allocate the bit matrix. Handle failure gracefully. Note that we use scheme_malloc_atomic since the allocated memory will