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

properly saving the module names for the js-implemented modules.

Browse Source
This commit is contained in:
Danny Yoo 2013-02-25 19:50:42 -07:00
parent b12369a58e
commit 808087612d
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
whalesong/js-assembler/package.rkt
View File

@ -228,7 +228,8 @@
(get-provided-name-code bytecode))]) (get-provided-name-code bytecode))])
(make-UninterpretedSource (make-UninterpretedSource
(format " path
(format "
M.modules[~s] = M.modules[~s] =
new plt.runtime.ModuleRecord(~s, new plt.runtime.ModuleRecord(~s,
function(M) { function(M) {
@ -274,7 +275,7 @@ M.modules[~s] =
[(SexpSource? src) [(SexpSource? src)
#f] #f]
[(UninterpretedSource? src) [(UninterpretedSource? src)
#f])) (rewrite-path (UninterpretedSource-path src))]))

5
whalesong/make/make-structs.rkt
View File

@ -26,7 +26,8 @@
#:transparent) #:transparent)
(define-struct: SexpSource ([sexp : Any]) (define-struct: SexpSource ([sexp : Any])
#:transparent) #:transparent)
(define-struct: UninterpretedSource ([datum : String] (define-struct: UninterpretedSource ([path : Path]
[datum : String]
[neighbors : (Listof Source)]) [neighbors : (Listof Source)])
#:transparent) #:transparent)
@ -38,7 +39,7 @@
[(StatementsSource? a-source) [(StatementsSource? a-source)
"<StatementsSource>"] "<StatementsSource>"]
[(UninterpretedSource? a-source) [(UninterpretedSource? a-source)
"<UninterpretedSource>"] (format "<UninterpretedSource ~a>" (UninterpretedSource-path a-source))]
[(MainModuleSource? a-source) [(MainModuleSource? a-source)
(format "<MainModuleSource ~a>" (MainModuleSource-path a-source))] (format "<MainModuleSource ~a>" (MainModuleSource-path a-source))]
[(SexpSource? a-source) [(SexpSource? a-source)