From c4dbbdfaf30952228b836df7b68232ddda4eaf33 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 21 Apr 2011 19:09:49 -0600
Subject: [PATCH] fix C declaration

---
 src/racket/gc2/newgc.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/racket/gc2/newgc.c b/src/racket/gc2/newgc.c
index 1ed452dd57..1fe1e6b5c7 100644
--- a/src/racket/gc2/newgc.c
+++ b/src/racket/gc2/newgc.c
@@ -2193,6 +2193,8 @@ int GC_merely_accounting()
 /* administration / initialization                                           */
 /*****************************************************************************/
 
+static void free_child_gc(void);
+
 inline static int page_mmu_type(mpage *page) {
   switch (page->size_class) { 
     case 0: /* SMALL_PAGE , GEN0_PAGE */
@@ -2585,7 +2587,8 @@ void GC_destruct_child_gc() {
       waiting = 1;
     }
   } while (waiting == 1);
-  GC_free_child_gc();
+
+  free_child_gc();
 }
 
 
@@ -4482,7 +4485,8 @@ void GC_dump_variable_stack(void **var_stack,
 /******************************************************************************/
 /*                              GC free all                                   */
 /******************************************************************************/
-void GC_free_child_gc(void)
+
+static void free_child_gc(void)
 {
   NewGC *gc = GC_get_GC();
   int i;