From 41f1893354f99928654c96096add42face63ae53 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Fri, 29 May 2009 20:36:37 +0000
Subject: [PATCH] Use tighter type for BTC_set_btc_mark

svn: r15012
---
 src/mzscheme/gc2/mem_account.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/mzscheme/gc2/mem_account.c b/src/mzscheme/gc2/mem_account.c
index 34420b2d30..f90eebd1de 100644
--- a/src/mzscheme/gc2/mem_account.c
+++ b/src/mzscheme/gc2/mem_account.c
@@ -702,7 +702,7 @@ static inline void BTC_clean_up(NewGC *gc) {
   clean_up_account_hooks(gc);
 }
 
-static inline void BTC_set_btc_mark(NewGC *gc, void* x) {
-  ((objhead *)(x))->btc_mark = gc->old_btc_mark;
+static inline void BTC_set_btc_mark(NewGC *gc, objhead* info) {
+  info->btc_mark = gc->old_btc_mark;
 }
 #endif