suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix demod for `begin-for-syntax' changes

Browse Source 
original commit: b1eab296f4
This commit is contained in:
Matthew Flatt 2011-09-08 19:19:14 -06:00
parent 278f090e83
commit c663b1e957
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/demodularizer/module.rkt
View File

@ -24,7 +24,7 @@
(list (cons 0 requires)) (list (cons 0 requires))
new-forms new-forms
empty ; syntax-body empty ; syntax-body
(list empty empty empty) ; unexported (list) ; unexported
max-let-depth max-let-depth
(make-toplevel 0 0 #f #f) ; dummy (make-toplevel 0 0 #f #f) ; dummy
lang-info lang-info

2
collects/compiler/demodularizer/nodep.rkt
View File

@ -128,7 +128,7 @@
(append (requires->modlist requires phase) (append (requires->modlist requires phase)
(if (and phase (zero? phase)) (if (and phase (zero? phase))
(begin (log-debug (format "[~S] lang-info : ~S" name lang-info)) ; XXX Seems to always be #f now (begin (log-debug (format "[~S] lang-info : ~S" name lang-info)) ; XXX Seems to always be #f now
(list (make-mod name srcname self-modidx new-prefix provides requires body syntax-bodies empty (list (make-mod name srcname self-modidx new-prefix provides requires body empty
unexported max-let-depth dummy lang-info internal-context))) unexported max-let-depth dummy lang-info internal-context)))
(begin (log-debug (format "[~S] Dropping module @ ~S" name phase)) (begin (log-debug (format "[~S] Dropping module @ ~S" name phase))
empty))))] empty))))]