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

fix `raco demod' for new submodule fields in zo structs

Browse Source
This commit is contained in:
Matthew Flatt 2012-04-04 07:37:30 -06:00
parent e3bba26c4a
commit 16d65ed251
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,7 +28,9 @@
max-let-depth max-let-depth
(make-toplevel 0 0 #f #f) ; dummy (make-toplevel 0 0 #f #f) ; dummy
lang-info lang-info
#t))])) #t
empty
empty))]))
(provide/contract (provide/contract
[wrap-in-kernel-module (symbol? symbol? lang-info/c module-path-index? compilation-top? . -> . compilation-top?)]) [wrap-in-kernel-module (symbol? symbol? lang-info/c module-path-index? compilation-top? . -> . compilation-top?)])

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

@ -130,7 +130,8 @@
(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 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
empty empty)))
(begin (log-debug (format "[~S] Dropping module @ ~S" name phase)) (begin (log-debug (format "[~S] Dropping module @ ~S" name phase))
empty))))] empty))))]
[else (error 'nodep-module "huh?: ~e" mod-form)])) [else (error 'nodep-module "huh?: ~e" mod-form)]))