From 90851d27c60aebcb7262fa3abd3fb2d21cdcf6f7 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Fri, 5 Apr 2013 14:16:36 -0600 Subject: [PATCH] adding an infinite loop to try to restart the server internally. --- whalesong/repl-prototype/sandboxed-server.rkt | 28 +++++++++++-------- 1 file changed, 16 insertions(+), 12 deletions(-) diff --git a/whalesong/repl-prototype/sandboxed-server.rkt b/whalesong/repl-prototype/sandboxed-server.rkt index 329e1d4..19bb219 100644 --- a/whalesong/repl-prototype/sandboxed-server.rkt +++ b/whalesong/repl-prototype/sandboxed-server.rkt @@ -22,15 +22,19 @@ #t) -(define eval - (parameterize ([sandbox-memory-limit 256] - [sandbox-output (current-output-port)] - [sandbox-network-guard my-network-guard]) - (printf "memory limit: ~s mb\n" (sandbox-memory-limit)) - (make-module-evaluator server-path - #:allow-read (list (build-path "/"))))) -(printf "starting server thread\n") -(define server-thread (eval `(start-server #:port ,(current-port)))) -(printf "thread started\n") - -(sync server-thread) \ No newline at end of file +(let loop () + (define eval + (parameterize ([sandbox-memory-limit 256] + [sandbox-output (current-output-port)] + [sandbox-network-guard my-network-guard]) + (printf "memory limit: ~s mb\n" (sandbox-memory-limit)) + (make-module-evaluator server-path + #:allow-read (list (build-path "/"))))) + (printf "starting server thread\n") + (define server-thread (eval `(start-server #:port ,(current-port)))) + (printf "thread started\n") + (with-handlers ([exn:fail? (lambda (exn) + (printf "server died prematurely? ~s\n" (exn-message exn)))]) + (sync server-thread)) + (printf "restarting server\n") + (loop))