another submodule expansion repair
Relevant to PR 12902
This commit is contained in:
parent
a94a2f6d55
commit
e430463ea4
|
@ -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:
|
||||
|
||||
|
|
|
@ -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 {
|
||||
|
|
Loading…
Reference in New Issue
Block a user