propagate observer to expansion of provides (tests ok, needs ms verif.)

2012-04-24 23:23:03 -06:00 · 2012-04-24 23:23:03 -06:00 · 36b1a63783
commit 36b1a63783
parent eb3dce14cd
1 changed files with 3 additions and 1 deletions
--- a/src/racket/src/module.c
+++ b/src/racket/src/module.c
@ -8616,7 +8616,9 @@ static Scheme_Object *do_module_begin_at_phase(Scheme_Object *form, Scheme_Comp_
  if (phase == 0) {
    Scheme_Object *expanded_provides;

-    expanded_provides = expand_all_provides(form, cenv, rec, drec, self_modidx,
+    expanded_provides = expand_all_provides(form, cenv, 
+                                            (erec ? erec : rec), (erec ? derec : drec),
+                                            self_modidx,
                                            bxs, !!erec);
  
    if (erec) {