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

fix bug in kernel-reprovide handling (PR 9167)

Browse Source 
svn: r10146
This commit is contained in:
Matthew Flatt 2008-06-05 15:23:39 +00:00
parent b8773a6a47
commit 05232bfe55
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mzscheme/src/stxobj.c
View File

@ -3211,12 +3211,13 @@ static Scheme_Object *scheme_search_shared_pes(Scheme_Object *shared_pes, Scheme
}
if (pt->reprovide_kernel) {
pr = scheme_hash_get(krn->ht, glob_id);
if (pr) {
Scheme_Object *kpr;
kpr = scheme_hash_get(krn->ht, glob_id);
if (kpr) {
if (get_orig_name)
return glob_id;
if (get_names) {
idx = SCHEME_CAR(SCHEME_CAR(pr));
idx = SCHEME_CAR(SCHEME_CAR(kpr));
get_names[0] = glob_id;
get_names[1] = idx;
get_names[2] = glob_id;