fix `raco demod' for new submodule fields in zo structs
This commit is contained in:
parent
e3bba26c4a
commit
16d65ed251
|
@ -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?)])
|
||||
|
|
|
@ -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)]))
|
||||
|
|
Loading…
Reference in New Issue
Block a user