Author: iratqq
Date: Sun Feb 8 23:48:56 2009
New Revision: 5836
Modified:
trunk/scm/http-client.scm
Log:
* scm/http-client.scm (http:open):
- Return #f when (connect) failed.
Modified: trunk/scm/http-client.scm
==============================================================================
--- trunk/scm/http-client.scm (original)
+++ trunk/scm/http-client.scm Sun Feb 8 23:48:56 2009
@@ -54,8 +54,8 @@
0)
(begin
(file-close s)
- #f
- s)))))
+ #f)
+ s))))
res)))))))
(define (http:encode-uri-string str)
