Display an error message when server sends an empty response - holymoly - A tor enabled gopher client written in CHICKEN scheme
 (HTM) git clone git://vernunftzentrum.de/holymoly.git
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
 (DIR) commit db9345443c5ab1542db7760a71503d69e160ab0b
 (DIR) parent be5ef663f6d94372f5e021565faa32f92bb40325
 (HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
       Date:   Fri,  3 Aug 2018 09:47:25 +0200
       
       Display an error message when server sends an empty response
       
       Diffstat:
         holymoly.scm                        |       6 ++++--
       
       1 file changed, 4 insertions(+), 2 deletions(-)
       ---
 (DIR) diff --git a/holymoly.scm b/holymoly.scm
       @@ -171,10 +171,12 @@
               (display (string-append resource (string #\return #\linefeed)) o)
               (let ((response (if until-eof?
                                  (read-u8vector #f i)
       -                          (butlast (read-lines i)))))
       +                          (read-lines i))))
                 (close-input-port i)
                 (close-output-port o)
       -         response))
       +         (if (null? response)
       +            '("iGot an empty response from server\tfoo\tserver\t70\r\n")
       +            response)))
             (e (exn i/o net)
                (endwin)
                (new-status "Network error: ~a" ((condition-property-accessor 'exn 'message) e))