From 43c9c0b3569bf3ed9d52a30daba3b5430a940ecf Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Tue, 9 Sep 2008 15:54:29 +0000 Subject: [PATCH] Fixed src/places for xform svn: r11602 --- src/mzscheme/src/places.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/mzscheme/src/places.c b/src/mzscheme/src/places.c index 08ef4b95ef..4760193948 100644 --- a/src/mzscheme/src/places.c +++ b/src/mzscheme/src/places.c @@ -90,7 +90,7 @@ Scheme_Object *scheme_place(int argc, Scheme_Object *args[]) { Scheme_Place *place; Place_Start_Data *place_data; mz_proc_thread *proc_thread; - + Scheme_Object *collection_paths; /* create place object */ place = MALLOC_ONE_TAGGED(Scheme_Place); @@ -101,7 +101,8 @@ Scheme_Object *scheme_place(int argc, Scheme_Object *args[]) { /* pass critical info to new place */ place_data = (Place_Start_Data*)malloc(sizeof(Place_Start_Data)); place_data->thunk = args[0]; - place_data->current_library_collection_paths = scheme_current_library_collection_paths(0, NULL); + collection_paths = scheme_current_library_collection_paths(0, NULL); + place_data->current_library_collection_paths = collection_paths; /* create new place */ proc_thread = mz_proc_thread_create(place_start_proc, place_data);