another submodule-expansion repair

This commit is contained in:
Matthew Flatt 2012-07-10 15:02:23 -06:00
parent 392d7bfbad
commit 428711bf93
2 changed files with 13 additions and 0 deletions

View File

@ -369,6 +369,17 @@
[(md m r/b (m-b mod))
#`(md m r/b (m-b (begin 10 mod)))])))
(parameterize ([current-namespace (make-base-namespace)])
(eval
(expand
(expand
'(module foo2 racket
(begin-for-syntax
(define here 'here))
(module+ m2
(begin-for-syntax here)))))))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; `begin-for-syntax' doesn't affect `module' with non-#f language:

View File

@ -6544,6 +6544,8 @@ static Scheme_Object *phase_shift_skip_submodules(Scheme_Object *fm, Scheme_Obje
if (SAME_OBJ(naya, v1) && SAME_OBJ(v2, v3))
return fm;
else {
if (SAME_OBJ(naya, v1))
naya = phase_shift_tail(naya, ps);
if (SAME_OBJ(v2, v3))
v3 = phase_shift_tail(v3, ps);
return rebuild_with_phase_shift(fm, naya, v3, ps);