another submodule-expansion repair
This commit is contained in:
parent
392d7bfbad
commit
428711bf93
|
@ -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:
|
||||
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue
Block a user