From 198b11859905c3e37ed57cf09bf4be0a89756e15 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@hashcollision.org>
Date: Mon, 8 Apr 2013 19:03:30 -0600
Subject: [PATCH] oops

---
 whalesong/repl-prototype/htdocs/repl.js | 2 +-
 whalesong/repl-prototype/server.rkt     | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/whalesong/repl-prototype/htdocs/repl.js b/whalesong/repl-prototype/htdocs/repl.js
index b07cf74..96a2daa 100644
--- a/whalesong/repl-prototype/htdocs/repl.js
+++ b/whalesong/repl-prototype/htdocs/repl.js
@@ -27,7 +27,7 @@
         if (! that._xhr) { 
             that._xhr = new easyXDM.Rpc(
                 { remote: that.compilerUrl || 'rpc.html' },
-                { remote: { replCompile: {} } });
+                { remote: { replCompile: {}, moduleCompile: {} } });
         }
         return that._xhr;
     };
diff --git a/whalesong/repl-prototype/server.rkt b/whalesong/repl-prototype/server.rkt
index 95abd7a..6f7e66a 100644
--- a/whalesong/repl-prototype/server.rkt
+++ b/whalesong/repl-prototype/server.rkt
@@ -115,14 +115,14 @@
                (modularize-input-port #:module-name (string->symbol mname)
                                       #:input-port ip
                                       #:semantics-module 'whalesong)))
-           (define program-output-port (open-output-string))[
+           (define program-output-port (open-output-string))
            (package (SexpSource (parameterize ([read-accept-reader #t])
                                   (read-syntax source-name program-input-port)))
                     #:should-follow-children? (lambda (src) #f)
                     #:output-port  program-output-port)
            (write-json (hash 'type "module"
                              'module-name (string->symbol mname)
-                             'provides ()  ;; FIXME!
+                             'provides '()  ;; FIXME!
                              'compiledModule (get-output-string program-output-port))
                        op)]))
   (close-output-port op)