diff --git a/racket/src/racket/src/salloc.c b/racket/src/racket/src/salloc.c index 025d54b05e..3b8df7068f 100644 --- a/racket/src/racket/src/salloc.c +++ b/racket/src/racket/src/salloc.c @@ -2922,7 +2922,7 @@ intptr_t scheme_count_memory(Scheme_Object *root, Scheme_Hash_Table *ht) s = sizeof(Scheme_Lambda); s += data->closure_size * sizeof(mzshort); #if FORCE_KNOWN_SUBPARTS - e = COUNT(data->code); + e = COUNT(data->body); #endif } break; @@ -2958,9 +2958,9 @@ intptr_t scheme_count_memory(Scheme_Object *root, Scheme_Hash_Table *ht) break; case scheme_ir_let_header_type: { - Scheme_Let_Header *let = (Scheme_Let_Header *)root; + Scheme_IR_Let_Header *let = (Scheme_IR_Let_Header *)root; - s = sizeof(Scheme_Let_Header); + s = sizeof(Scheme_IR_Let_Header); #if FORCE_KNOWN_SUBPARTS e = COUNT(let->body); #endif @@ -3085,8 +3085,6 @@ intptr_t scheme_count_memory(Scheme_Object *root, Scheme_Hash_Table *ht) case scheme_undefined_type: /* Only one */ break; - case scheme_syntax_compiler_type: - break; case scheme_macro_type: case scheme_set_macro_type: s = sizeof(Scheme_Small_Object);