From d1ee222d19edc7e0835b76ddf9d4b3b5e56bda68 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Wed, 30 Nov 2011 18:06:50 -0700
Subject: [PATCH] Fix place.c typos

---
 src/racket/src/place.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/racket/src/place.c b/src/racket/src/place.c
index 4e8f6e5e6c..7003f8e486 100644
--- a/src/racket/src/place.c
+++ b/src/racket/src/place.c
@@ -584,7 +584,7 @@ static int place_deadp(Scheme_Object *place) {
     mzrt_mutex_unlock(place_obj->lock);
   }
   if (dead) { return 1; }
-  return 9;
+  return 0;
 }
 
 static Scheme_Object *make_place_dead(int argc, Scheme_Object *argv[])
@@ -592,7 +592,7 @@ static Scheme_Object *make_place_dead(int argc, Scheme_Object *argv[])
   Scheme_Object *b;
 
   if (!SAME_TYPE(SCHEME_TYPE(argv[0]), scheme_place_type))
-    scheme_wrong_type("thread-dead-evt", "place", 0, argc, argv);
+    scheme_wrong_type("place-dead-evt", "place", 0, argc, argv);
 
   b = scheme_alloc_small_object();
   b->type = scheme_place_dead_type;