summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsjamaan <>2009-07-25 14:34:15 +0000
committersjamaan <>2009-07-25 14:34:15 +0000
commite8b96dd8eb77bc147e4959f885e9445f6e9a21f7 (patch)
tree7df63a2b07cc3334f68f01fc3d1ab74d709d9738
parent83b53efd540fc6c62bb7a6860f8080a53e0745fa (diff)
downloadchicken-xml-rpc-e8b96dd8eb77bc147e4959f885e9445f6e9a21f7.tar
chicken-xml-rpc-e8b96dd8eb77bc147e4959f885e9445f6e9a21f7.tar.gz
chicken-xml-rpc-e8b96dd8eb77bc147e4959f885e9445f6e9a21f7.tar.bz2
chicken-xml-rpc-e8b96dd8eb77bc147e4959f885e9445f6e9a21f7.tar.lz
chicken-xml-rpc-e8b96dd8eb77bc147e4959f885e9445f6e9a21f7.tar.xz
chicken-xml-rpc-e8b96dd8eb77bc147e4959f885e9445f6e9a21f7.tar.zst
chicken-xml-rpc-e8b96dd8eb77bc147e4959f885e9445f6e9a21f7.zip
Fix connection handling (simply close connection always)
-rw-r--r--xml-rpc-server.scm8
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