using the name for the source.

whalesong/repl-prototype/htdocs/repl.js

@@ -13,6 +13,9 @@ jQuery(document).ready(function() {
     // The machine.
     var M;
 
+
+    var interactionsCount = 0;
+
     var sendOutputToBottom = function() {
         output.get(0).scrollTop = output.get(0).scrollHeight;
     };
@@ -206,7 +209,9 @@ jQuery(document).ready(function() {
             writeErrorMessage("internal server error");
             after();
         };
-        xhr.replCompile(src, onCompile, onServerError);
+        xhr.replCompile("<interactions" + interactionsCount + ">",
+                        src, onCompile, onServerError);
+        interactionsCount = interactionsCount + 1;
     };
 
 

whalesong/repl-prototype/htdocs/rpc.js

@@ -1,7 +1,7 @@
 (function () {
     "use strict";
     var url = "/compile";
-    var replCompile = function(code, onDone, onDoneError) {
+    var replCompile = function(name, code, onDone, onDoneError) {
         jQuery.ajax({ 'url': url,
                       'cache': false,
                       'success': function(data, textStatus, jqXHR) { 
@@ -10,7 +10,8 @@
                       'error': function(jqXHR, textStatus, errorThrown) {
                           onDoneError(errorThrown); 
                       },
-                      'data': {'src' : code },
+                      'data': {'name' : name,
+                               'src' : code },
                       'dataType': 'json'
                     });
     };

whalesong/repl-prototype/server.rkt

@@ -64,6 +64,9 @@
 (define (start req)
   (define-values (response op) 
     (make-port-response #:mime-type #"text/json" #:with-cors? #t))
+  (define name (if (exists-binding? 'name (request-bindings req))
+                   (extract-binding/single 'name (request-bindings req))
+                   #f))
   (define text-src (extract-binding/single 'src (request-bindings req)))
   (define as-mod? (match (extract-bindings 'm (request-bindings req))
                     [(list (or "t" "true"))
@@ -79,7 +82,7 @@
            (port-count-lines! ip)
            (define assembled-codes
              (let loop () 
-               (define sexp (read-syntax #f ip))
+               (define sexp (read-syntax name ip))
                (cond [(eof-object? sexp)
                       '()]
                      [else