From aeb32ad6f8bb998d7430f0458f290faacb8b2fd2 Mon Sep 17 00:00:00 2001 From: Gareth Rees Date: Thu, 25 Apr 2013 20:20:44 +0100 Subject: [PATCH] Integrate change 181452 from scheme.c to scheme-advanced.c. Copied from Perforce Change: 181453 ServerID: perforce.ravenbrook.com --- mps/example/scheme/scheme-advanced.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/mps/example/scheme/scheme-advanced.c b/mps/example/scheme/scheme-advanced.c index f960f8fc60a..7e6754be1d0 100644 --- a/mps/example/scheme/scheme-advanced.c +++ b/mps/example/scheme/scheme-advanced.c @@ -4558,8 +4558,10 @@ int main(int argc, char *argv[]) /* Make sure we can pick up finalization messages. */ mps_message_type_enable(arena, mps_message_type_finalization()); - /* Call the main program. This call is required to mark the top of the - stack of the main thread. See topic/thread. */ + /* Call the main program. A function call is required here so that + 'marker' reliably points into the stack below any potential roots + in the main thread. See the section "Thread roots" in + topic/root. */ exit_code = start(argc, argv); /* Cleaning up the MPS object with destroy methods will allow the MPS to