thttpd - web daemon software - fixes 5

2012-01-23 13:56:40 +09:00 · 2012-01-23 13:56:40 +09:00 · c38832ae2a
parent 445f12c48b
commit c38832ae2a
1 changed files with 0 additions and 1 deletions
--- a/scsh/thttpd/thttpdaemon.scm
+++ b/scsh/thttpd/thttpdaemon.scm
@ -91,7 +91,6 @@
                          (let ((response-word-2nd (get-response abcl)))
                            (if (symbol? response-word-2nd)
                                (begin
-                                  (write "Hello World")
                                  ;;(display "200 OK" out)
                                  (display aspect-content out)
                                  (display (string #\return #\newline) out) ;; CRLF