pass REPL name to Node.js REPL server

Author: swannodette

src/main/clojure/cljs/repl/node.clj

@@ -59,7 +59,10 @@
   [repl-env js]
   (let [{:keys [in out]} @(:socket repl-env)]
     ;; escape backslash for Node.js under Windows
-    (write out js)
+    (write out
+      (json/write-str
+        {"repl" (.getName (Thread/currentThread))
+         "form" js}))
     (let [result (json/read-str
                    (read-response in) :key-fn keyword)]
       (condp = (:status result)

src/main/clojure/cljs/repl/node_repl.js

@@ -22,6 +22,7 @@ try {
 var server = net.createServer(function (socket) {
     var buffer = "",
         ret    = null,
+        repl   = null,
         err    = null;
 
     socket.write("ready");
@@ -53,7 +54,9 @@ var server = net.createServer(function (socket) {
                 } else {
                     try {
                         dom.run(function () {
-                            ret = vm.runInThisContext(data, "repl");
+                            var obj = JSON.parse(data);
+                            repl = obj.repl;
+                            ret = vm.runInThisContext(obj.form, "repl");
                         });
                     } catch (e) {
                         err = e;