Properly ignore "." as last line, display everything else - holymoly - A tor enabled gopher client written in CHICKEN scheme
HTML git clone git://vernunftzentrum.de/holymoly.git
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
DIR commit 59a87406a397fb9ac51bc978cf041ea80ade5b21
DIR parent d01fd2d8321c9e99d10ba0038399b5299815cb42
HTML Author: Christian Kellermann <ckeen@pestilenz.org>
Date: Tue, 11 Sep 2018 14:36:35 +0200
Properly ignore "." as last line, display everything else
Diffstat:
holymoly.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
---
DIR diff --git a/holymoly.scm b/holymoly.scm
@@ -181,8 +181,8 @@
(cond ((or (eof-object? response) (null? response))
empty-response)
(until-eof? response)
- ((pair? response) (butlast response))
- (else (error "Unknown return type of response")))))
+ ((and (pair? response) (equal? (last response) ".")) (butlast response))
+ (else response))))
(e (exn i/o net)
(endwin)
(new-status "Network error: ~a" ((condition-property-accessor 'exn 'message) e))