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

just a comment and some (disabled) debugging instrumentation

Browse Source 
svn: r15959
This commit is contained in:
Matthew Flatt 2009-09-10 17:54:10 +00:00
parent 0d1409e5fd
commit a8ecb7fc09
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/mzscheme/src/module.c
View File

@ -4066,6 +4066,7 @@ static void should_run_for_compile(Scheme_Env *menv)
static void start_module(Scheme_Module *m, Scheme_Env *env, int restart,
Scheme_Object *syntax_idx, int eval_exp, int eval_run, long base_phase,
Scheme_Object *cycle_list)
/* eval_exp == -1 => make it ready, eval_exp == 1 => run exp-time, eval_exp = 0 => don't even make ready */
{
Scheme_Env *menv;
Scheme_Object *l, *new_cycle_list;

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

@ -3806,7 +3806,10 @@ static Scheme_Object *search_shared_pes(Scheme_Object *shared_pes,
for (pr = shared_pes; !SCHEME_NULLP(pr); pr = SCHEME_CDR(pr)) {
pt = (Scheme_Module_Phase_Exports *)SCHEME_CADR(SCHEME_CAR(pr));
EXPLAIN(fprintf(stderr, "%d pes table\n", depth));
EXPLAIN(fprintf(stderr, "%d pes table %s\n", depth,
pt->src_modidx
? scheme_write_to_string(scheme_module_resolve(pt->src_modidx, 0), NULL)
: "?"));
if (!pt->ht) {
/* Lookup table (which is created lazily) not yet created, so do that now... */
@ -3853,6 +3856,7 @@ static Scheme_Object *search_shared_pes(Scheme_Object *shared_pes,
else
phase = 0;
EXPLAIN(fprintf(stderr, "%d srcname %s\n", depth, SCHEME_SYM_VAL(pt->provide_src_names[i])));
get_names[0] = pt->provide_src_names[i];
get_names[1] = idx;
get_names[2] = glob_id;