From 0fbdbe6c840d26f3910dfdcfe4049f8769786c24 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 15 Apr 2011 16:41:34 +0000
Subject: [PATCH] fix pre-GC_set_start_callback compilation

* libguile/gc.c: Move declaration of run_before_gc_hook up.
---
 libguile/gc.c | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/libguile/gc.c b/libguile/gc.c
index 341af6ff2..7d2724c5f 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -198,6 +198,13 @@ scm_t_c_hook scm_after_sweep_c_hook;
 scm_t_c_hook scm_after_gc_c_hook;
 
 
+static void
+run_before_gc_c_hook (void)
+{
+  scm_c_hook_run (&scm_before_gc_c_hook, NULL);
+}
+
+
 /* GC Statistics Keeping
  */
 unsigned long scm_gc_ports_collected = 0;
@@ -550,12 +557,6 @@ scm_gc_unregister_roots (SCM *b, unsigned long n)
     scm_gc_unregister_root (p);
 }
 
-static void
-run_before_gc_c_hook (void)
-{
-  scm_c_hook_run (&scm_before_gc_c_hook, NULL);
-}
-