suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Wrap dynamic-require of place module with top_level_do

Browse Source 
svn: r18089
This commit is contained in:
Kevin Tew 2010-02-15 20:23:47 +00:00
parent b73613460b
commit df51f39987
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/places.c
View File

@ -481,7 +481,9 @@ static void *place_start_proc(void *data_arg) {
saved_error_buf = p->error_buf; saved_error_buf = p->error_buf;
p->error_buf = &new_error_buf; p->error_buf = &new_error_buf;
if (!scheme_setjmp(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; a[0] = channel;
scheme_apply(place_main, 1, a); scheme_apply(place_main, 1, a);
} }