iDisplay an error message when server sends an empty response - 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 db9345443c5ab1542db7760a71503d69e160ab0b	/ckeen/repos/holymoly/commit/db9345443c5ab1542db7760a71503d69e160ab0b.gph	vernunftzentrum.de	70
1parent be5ef663f6d94372f5e021565faa32f92bb40325	/ckeen/repos/holymoly/commit/be5ef663f6d94372f5e021565faa32f92bb40325.gph	vernunftzentrum.de	70
hAuthor: Christian Kellermann <ckeen@pestilenz.org>	URL:mailto:ckeen@pestilenz.org	vernunftzentrum.de	70
iDate:   Fri,  3 Aug 2018 09:47:25 +0200	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iDisplay an error message when server sends an empty response	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iDiffstat:	Err	vernunftzentrum.de	70
i  holymoly.scm                        |       6 ++++--	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
i1 file changed, 4 insertions(+), 2 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@@ -171,10 +171,12 @@	Err	vernunftzentrum.de	70
i        (display (string-append resource (string #\return #\linefeed)) o)	Err	vernunftzentrum.de	70
i        (let ((response (if until-eof?	Err	vernunftzentrum.de	70
i                           (read-u8vector #f i)	Err	vernunftzentrum.de	70
i-                          (butlast (read-lines i)))))	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-         response))	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      (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
.