From 4aabe044fcbeeaec3d847032a925c5f97fc477f9 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Fri, 8 Jul 2011 13:24:23 -0400
Subject: [PATCH] fixed

---
 js-assembler/package.rkt | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/js-assembler/package.rkt b/js-assembler/package.rkt
index 8abe816..e97846a 100644
--- a/js-assembler/package.rkt
+++ b/js-assembler/package.rkt
@@ -151,20 +151,21 @@ MACHINE.modules[~s] =
 
 
 (define (assemble-modinvoke path after)
-  (format "if (! MACHINE.modules[~s].isInvoked) {
-               MACHINE.modules[~s].invoke(MACHINE,
-                                          function() {
-                                              ~a
-                                          },
-                                          MACHINE.params.currentErrorHandler);
-           } else {
-               ~a
-           }
-          "
-          path
-          path
-          after
-          after))
+  (let ([name (rewrite-path (path->string path))])
+    (format "if (! MACHINE.modules[~s].isInvoked) {
+                 MACHINE.modules[~s].invoke(MACHINE,
+                                            function() {
+                                                ~a
+                                            },
+                                            MACHINE.params.currentErrorHandler);
+             } else {
+                 ~a
+             }
+            "
+            (symbol->string name)
+            (symbol->string name)
+            after
+            after)))