syntax errors caught.

whalesong/repl-prototype/htdocs/repl.js

@@ -140,6 +140,9 @@
     Repl.prototype.executeCompiledProgram = function(compiledResult,
 						     onDoneSuccess, onDoneFail) {
         var that = this;
+        if (compiledResult.type === 'error') {
+            return onDoneFail(compiledResult);
+        } else {
             // compiledResult.compiledCodes is an array of function chunks.
             // The evaluation leaves the value register of the machine
             // to contain the list of values from toplevel evaluation.
@@ -162,6 +165,7 @@
                          codeFunction(that.M, onGoodEvaluation, onBadEvaluation);
                      },
                      onDoneSuccess);
+        }
     };
 
 

whalesong/repl-prototype/sandboxed-server.rkt

@@ -25,6 +25,7 @@
 (let loop ()
   (define eval
     (parameterize ([sandbox-memory-limit 256]
+                   [sandbox-eval-limits '(+inf.0 256)]
                    [sandbox-output (current-output-port)]
                    [sandbox-network-guard my-network-guard])
       (printf "memory limit: ~s mb\n" (sandbox-memory-limit))

whalesong/repl-prototype/server.rkt

@@ -77,7 +77,6 @@
                     [else #f]))
   ;; Compile the program here...
   (with-handlers ([exn:fail? (lambda (exn)
-                               (printf "Error: ~s\n" (exn-message exn))
                                (write-json (hash 'type "error"
                                                  'message (exn-message exn))
                                            op))])