From df51f39987414e68330ab413e3eceb1362451a28 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Mon, 15 Feb 2010 20:23:47 +0000
Subject: [PATCH] Wrap dynamic-require of place module with top_level_do

svn: r18089
---
 src/mzscheme/src/places.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/places.c b/src/mzscheme/src/places.c
index eb9566a314..7d3ff7c1a7 100644
--- a/src/mzscheme/src/places.c
+++ b/src/mzscheme/src/places.c
@@ -481,7 +481,9 @@ static void *place_start_proc(void *data_arg) {
     saved_error_buf = p->error_buf;
     p->error_buf = &new_error_buf;
     if (!scheme_setjmp(new_error_buf)) {
-      place_main = scheme_dynamic_require(2, a);
+      Scheme_Object *dynamic_require;
+      dynamic_require = scheme_builtin_value("dynamic-require");
+      place_main = scheme_apply(dynamic_require, 2, a);
       a[0] = channel;
       scheme_apply(place_main, 1, a);
     }