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

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

View File

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

View File

@ -130,7 +130,8 @@
(if (and phase (zero? phase))
(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
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))
empty))))]
[else (error 'nodep-module "huh?: ~e" mod-form)]))