diff --git a/src/racket/src/mzmark_place.inc b/src/racket/src/mzmark_place.inc index 1817b418ce..259ec371c0 100644 --- a/src/racket/src/mzmark_place.inc +++ b/src/racket/src/mzmark_place.inc @@ -35,6 +35,7 @@ static int place_val_SIZE(void *p, struct NewGC *gc) { static int place_val_MARK(void *p, struct NewGC *gc) { Scheme_Place *pr = (Scheme_Place *)p; gcMARK2(pr->channel, gc); + gcMARK2(pr->mref, gc); return gcBYTES_TO_WORDS(sizeof(Scheme_Place)); @@ -43,6 +44,7 @@ static int place_val_MARK(void *p, struct NewGC *gc) { static int place_val_FIXUP(void *p, struct NewGC *gc) { Scheme_Place *pr = (Scheme_Place *)p; gcFIXUP2(pr->channel, gc); + gcFIXUP2(pr->mref, gc); return gcBYTES_TO_WORDS(sizeof(Scheme_Place)); diff --git a/src/racket/src/mzmarksrc.c b/src/racket/src/mzmarksrc.c index fea9e597ef..b0237724bb 100644 --- a/src/racket/src/mzmarksrc.c +++ b/src/racket/src/mzmarksrc.c @@ -1449,6 +1449,7 @@ place_val { mark: Scheme_Place *pr = (Scheme_Place *)p; gcMARK2(pr->channel, gc); + gcMARK2(pr->mref, gc); size: gcBYTES_TO_WORDS(sizeof(Scheme_Place));