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

decompiler repairs related to changes for submodules

Browse Source
This commit is contained in:
Matthew Flatt 2012-03-12 09:04:37 -06:00
parent 420d3e7717
commit 5dc08cbe03
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/compiler/decompile.rkt
View File

@ -163,14 +163,14 @@
[(symbol? modidx) modidx] [(symbol? modidx) modidx]
[else (collapse-module-path-index modidx (current-directory))])) [else (collapse-module-path-index modidx (current-directory))]))
(define (decompile-module mod-form orig-stack stx-ht name) (define (decompile-module mod-form orig-stack stx-ht mod-name)
(match mod-form (match mod-form
[(struct mod (name srcname self-modidx prefix provides requires body syntax-bodies unexported [(struct mod (name srcname self-modidx prefix provides requires body syntax-bodies unexported
max-let-depth dummy lang-info internal-context pre-submodules post-submodules)) max-let-depth dummy lang-info internal-context pre-submodules post-submodules))
(let-values ([(globs defns) (decompile-prefix prefix stx-ht)] (let-values ([(globs defns) (decompile-prefix prefix stx-ht)]
[(stack) (append '(#%modvars) orig-stack)] [(stack) (append '(#%modvars) orig-stack)]
[(closed) (make-hasheq)]) [(closed) (make-hasheq)])
`(,name ,(if (symbol? name) name (last name)) .... ,internal-context `(,mod-name ,(if (symbol? name) name (last name)) ....
,@defns ,@defns
,@(for/list ([submod (in-list pre-submodules)]) ,@(for/list ([submod (in-list pre-submodules)])
(decompile-module submod orig-stack stx-ht 'module)) (decompile-module submod orig-stack stx-ht 'module))