adding an infinite loop to try to restart the server internally.

whalesong/repl-prototype/sandboxed-server.rkt

@@ -22,6 +22,7 @@
   #t)
 
 
+(let loop ()
   (define eval
     (parameterize ([sandbox-memory-limit 256]
                    [sandbox-output (current-output-port)]
@@ -32,5 +33,8 @@
   (printf "starting server thread\n")
   (define server-thread (eval `(start-server #:port ,(current-port))))
   (printf "thread started\n")
-  
-(sync server-thread)
+  (with-handlers ([exn:fail? (lambda (exn)
+                               (printf "server died prematurely?  ~s\n" (exn-message exn)))])
+    (sync server-thread))
+  (printf "restarting server\n")
+  (loop))