Fix connection handling (simply close connection always)

1 files changed, 6 insertions, 2 deletions

diff --git a/xml-rpc-server.scm b/xml-rpc-server.scm
index 00a824b..022fb26 100644
--- a/xml-rpc-server.scm
+++ b/xml-rpc-server.scm
@@ -147,8 +147,12 @@
            (handle-exceptions e
              (void)
              (let ((req (read-request in))
-                   (resp (make-response port: out)))
-               (handler req resp)))))
+                   (resp (make-response port: out
+                                        headers: (headers
+                                                  `((connection close))))))
+               (handler req resp)
+               (close-input-port in)
+               (close-output-port out)))))
         (accept-next-connection)))))
 
 )
\ No newline at end of file