fix `place-break' on terminated place

Merge to 5.2
This commit is contained in:
Matthew Flatt 2011-10-11 16:40:54 -06:00
parent f2082e6eeb
commit 0993408c19

View File

@ -515,7 +515,7 @@ static int do_place_break(Scheme_Place *place)
Scheme_Place_Object *place_obj;
place_obj = place->place_obj;
{
if (place_obj) {
mzrt_mutex_lock(place_obj->lock);
place_obj->pbreak = 1;