iProperly handle empty responses - holymoly - A tor enabled gopher client written in CHICKEN scheme	Err	vernunftzentrum.de	70
hgit clone git://vernunftzentrum.de/holymoly.git	URL:git://vernunftzentrum.de/holymoly.git	vernunftzentrum.de	70
1Log	/ckeen/repos/holymoly/log.gph	vernunftzentrum.de	70
1Files	/ckeen/repos/holymoly/files.gph	vernunftzentrum.de	70
1Refs	/ckeen/repos/holymoly/refs.gph	vernunftzentrum.de	70
1README	/ckeen/repos/holymoly/file/README.gph	vernunftzentrum.de	70
1LICENSE	/ckeen/repos/holymoly/file/LICENSE.gph	vernunftzentrum.de	70
i---	Err	vernunftzentrum.de	70
1commit bd2c6f35b61ce2fa3ad044f44f2613cbd4065f7c	/ckeen/repos/holymoly/commit/bd2c6f35b61ce2fa3ad044f44f2613cbd4065f7c.gph	vernunftzentrum.de	70
1parent 952bbbec802d000e6df8e215c476e20abcd27612	/ckeen/repos/holymoly/commit/952bbbec802d000e6df8e215c476e20abcd27612.gph	vernunftzentrum.de	70
hAuthor: Christian Kellermann <ckeen@pestilenz.org>	URL:mailto:ckeen@pestilenz.org	vernunftzentrum.de	70
iDate:   Fri,  3 Aug 2018 10:28:11 +0200	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iProperly handle empty responses	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iDiffstat:	Err	vernunftzentrum.de	70
i  holymoly.scm                        |       8 +++++---	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
i1 file changed, 5 insertions(+), 3 deletions(-)	Err	vernunftzentrum.de	70
i---	Err	vernunftzentrum.de	70
1diff --git a/holymoly.scm b/holymoly.scm	/ckeen/repos/holymoly/file/holymoly.scm.gph	vernunftzentrum.de	70
i@@ -175,9 +175,11 @@	Err	vernunftzentrum.de	70
i                           (read-lines i))))	Err	vernunftzentrum.de	70
i          (close-input-port i)	Err	vernunftzentrum.de	70
i          (close-output-port o)	Err	vernunftzentrum.de	70
i-         (if (null? response)	Err	vernunftzentrum.de	70
i-            '("iGot an empty response from server\tfoo\tserver\t70\r\n")	Err	vernunftzentrum.de	70
i-            response)))	Err	vernunftzentrum.de	70
i+         (cond ((null? response)	Err	vernunftzentrum.de	70
i+                    '("iGot an empty response from server\tfoo\tserver\t70\r\n"))	Err	vernunftzentrum.de	70
i+               (until-eof? response)	Err	vernunftzentrum.de	70
i+               ((pair? response) (butlast response))	Err	vernunftzentrum.de	70
i+               (else (error "Unknown return type of response")))))	Err	vernunftzentrum.de	70
i      (e (exn i/o net)	Err	vernunftzentrum.de	70
i         (endwin)	Err	vernunftzentrum.de	70
i         (new-status "Network error: ~a" ((condition-property-accessor 'exn 'message) e))	Err	vernunftzentrum.de	70
.