diff options
Always close ports, also when an exception occurred
| -rw-r--r-- | xml-rpc-server.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/xml-rpc-server.scm b/xml-rpc-server.scm index 022fb26..7f30b62 100644 --- a/xml-rpc-server.scm +++ b/xml-rpc-server.scm @@ -150,9 +150,9 @@ (resp (make-response port: out headers: (headers `((connection close)))))) - (handler req resp) - (close-input-port in) - (close-output-port out))))) + (handler req resp))) + (close-input-port in) + (close-output-port out))) (accept-next-connection))))) )
\ No newline at end of file |