fix `place-break' on terminated place

Merge to 5.2
(cherry picked from commit 0993408c19)
This commit is contained in:
Matthew Flatt 2011-10-11 16:40:54 -06:00 committed by Eli Barzilay
parent c760197bd0
commit a24c809202

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;