From 83e7f922505bd771cd4fc22cfdafc4fc9ee4dd18 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 6 Sep 2011 05:48:17 -0600
Subject: [PATCH] fix non-places build

---
 src/racket/gc2/mem_account.c | 2 ++
 src/racket/src/schpriv.h     | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/src/racket/gc2/mem_account.c b/src/racket/gc2/mem_account.c
index 2c5fcf1e6c..565484c77a 100644
--- a/src/racket/gc2/mem_account.c
+++ b/src/racket/gc2/mem_account.c
@@ -65,6 +65,7 @@ inline static void mark_threads(NewGC *gc, int owner)
         }
       } else {
         /* place */
+#ifdef MZ_USE_PLACES
         /* add in the memory used by the place's GC */
         intptr_t sz;
         Scheme_Place_Object *place_obj = ((Scheme_Place *)work->thread)->place_obj;
@@ -74,6 +75,7 @@ inline static void mark_threads(NewGC *gc, int owner)
           mzrt_mutex_unlock(place_obj->lock);
           account_memory(gc, owner, gcBYTES_TO_WORDS(sz));
         }
+#endif
       }
     }
   }
diff --git a/src/racket/src/schpriv.h b/src/racket/src/schpriv.h
index 26f4b4d88d..97c9382887 100644
--- a/src/racket/src/schpriv.h
+++ b/src/racket/src/schpriv.h
@@ -3724,7 +3724,9 @@ void scheme_socket_to_output_port(intptr_t s, Scheme_Object *name, int takeover,
 
 #define SCHEME_PLACE_OBJECTP(o) (SCHEME_TYPE(o) == scheme_place_object_type)
 
+#ifdef MZ_USE_PLACES
 Scheme_Env *scheme_place_instance_init(void *stack_base, struct NewGC *, intptr_t memory_limit);
+#endif
 Scheme_Object *scheme_make_place_object();
 void scheme_place_instance_destroy(int force);
 void scheme_kill_green_thread_timer();