Properly ignore "." as last line, display everything else - 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 59a87406a397fb9ac51bc978cf041ea80ade5b21
(DIR) parent d01fd2d8321c9e99d10ba0038399b5299815cb42
(HTM) 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))