Flush output for testing

2014-05-19 15:50:46 -06:00 · 2014-05-19 15:50:46 -06:00 · 9e2fe9901f
commit 9e2fe9901f
parent 32ab2c49e0
1 changed files with 2 additions and 1 deletions
--- 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))])