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

whalesong/js-assembler/package.rkt

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

whalesong/make/make-structs.rkt

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