From 9e2fe9901fbcd429cfb867b3b570f031527f671c Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 19 May 2014 15:50:46 -0600 Subject: [PATCH] Flush output for testing --- .../web-server-lib/web-server/servlet-dispatch.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/web-server-pkgs/web-server-lib/web-server/servlet-dispatch.rkt b/pkgs/web-server-pkgs/web-server-lib/web-server/servlet-dispatch.rkt index b576c4e566..bad85de795 100644 --- a/pkgs/web-server-pkgs/web-server-lib/web-server/servlet-dispatch.rkt +++ b/pkgs/web-server-pkgs/web-server-lib/web-server/servlet-dispatch.rkt @@ -152,7 +152,8 @@ (if launch-path (string-append server-url launch-path) server-url)) - (printf "Stop this program at any time to terminate the Web Server.\n")) + (printf "Stop this program at any time to terminate the Web Server.\n") + (flush-output)) (let ([bye (lambda () (when banner? (printf "\nWeb Server stopped.\n")) (shutdown-server))])