From 808087612d7c5754da40016ead1720833af99e58 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@hashcollision.org>
Date: Mon, 25 Feb 2013 19:50:42 -0700
Subject: [PATCH] properly saving the module names for the js-implemented
 modules.

---
 whalesong/js-assembler/package.rkt | 5 +++--
 whalesong/make/make-structs.rkt    | 5 +++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/whalesong/js-assembler/package.rkt b/whalesong/js-assembler/package.rkt
index e00e991..cc122ab 100644
--- a/whalesong/js-assembler/package.rkt
+++ b/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))]))
 
 
 
diff --git a/whalesong/make/make-structs.rkt b/whalesong/make/make-structs.rkt
index cf07652..4424f50 100644
--- a/whalesong/make/make-structs.rkt
+++ b/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)