suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Flush output for testing

Browse Source
This commit is contained in:
Jay McCarthy 2014-05-19 15:50:46 -06:00
parent 32ab2c49e0
commit 9e2fe9901f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/web-server-pkgs/web-server-lib/web-server/servlet-dispatch.rkt
View File

@ -152,7 +152,8 @@
(if launch-path (if launch-path
(string-append server-url launch-path) (string-append server-url launch-path)
server-url)) 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 () (let ([bye (lambda ()
(when banner? (printf "\nWeb Server stopped.\n")) (when banner? (printf "\nWeb Server stopped.\n"))
(shutdown-server))]) (shutdown-server))])