another submodule expansion repair

Relevant to PR 12902
This commit is contained in:
Matthew Flatt 2012-07-13 09:37:16 -06:00
parent a94a2f6d55
commit e430463ea4
2 changed files with 10 additions and 1 deletions

View File

@ -380,6 +380,15 @@
(module+ m2
(begin-for-syntax here)))))))
(parameterize ([current-namespace (make-base-namespace)])
(eval
(expand
(expand '(module t racket
(begin-for-syntax)
(begin-for-syntax)
(define x 7)
(module* t #f x))))))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; `begin-for-syntax' doesn't affect `module' with non-#f language:

View File

@ -6548,7 +6548,7 @@ static Scheme_Object *phase_shift_skip_submodules(Scheme_Object *fm, Scheme_Obje
/* found `begin-for-syntax': */
naya = phase_shift_skip_submodules(v1, ps, phase+1);
v2 = SCHEME_STX_CDR(fm);
v3 = phase_shift_skip_submodules(v2, ps, phase+1);
v3 = phase_shift_skip_submodules(v2, ps, phase);
if (SAME_OBJ(naya, v1) && SAME_OBJ(v2, v3))
return fm;
else {