suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix place.c typos

Browse Source
This commit is contained in:
Kevin Tew 2011-11-30 18:06:50 -07:00
parent 3b0568b39c
commit d1ee222d19
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/racket/src/place.c
View File

@ -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;