iFurther simplify reading by calling read-lines instead - 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 24141c4a83cd1cd82a13526dc47bb54bde811d93	/ckeen/repos/holymoly/commit/24141c4a83cd1cd82a13526dc47bb54bde811d93.gph	vernunftzentrum.de	70
1parent 144b5565d9b5dcc88bb2a209546d363f5efe64b6	/ckeen/repos/holymoly/commit/144b5565d9b5dcc88bb2a209546d363f5efe64b6.gph	vernunftzentrum.de	70
hAuthor: Christian Kellermann <ckeen@pestilenz.org>	URL:mailto:ckeen@pestilenz.org	vernunftzentrum.de	70
iDate:   Wed, 25 Apr 2018 15:56:36 +0200	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iFurther simplify reading by calling read-lines instead	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iDiffstat:	Err	vernunftzentrum.de	70
i  holymoly.scm                        |      10 ++++------	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
i1 file changed, 4 insertions(+), 6 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@@ -160,9 +160,7 @@	Err	vernunftzentrum.de	70
i        (display (string-append resource (string #\linefeed #\return)) 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-                          (let* ((raw (read-all i))	Err	vernunftzentrum.de	70
i-                                 (l (string-split raw "\r\n")))	Err	vernunftzentrum.de	70
i-                             (butlast l)))))	Err	vernunftzentrum.de	70
i+                          (butlast (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@@ -276,7 +274,7 @@	Err	vernunftzentrum.de	70
i              (old-selector (entry-selector e)))	Err	vernunftzentrum.de	70
i         (if (null? query)	Err	vernunftzentrum.de	70
i             (select-entry (current-page))	Err	vernunftzentrum.de	70
i-            (entry-selector-set! e (string-append (car (string-split old-selector "?"))  "?" (string-intersperse (string-split query) "+"))))))	Err	vernunftzentrum.de	70
i+            (entry-selector-set! e (string-append (car (string-split old-selector "?")) "?" (string-intersperse (string-split query) "+"))))))	Err	vernunftzentrum.de	70
i     (unless (equal? e (current-page))	Err	vernunftzentrum.de	70
i       (push! e history))	Err	vernunftzentrum.de	70
i     (let* ((res (request-resource (entry-host e) (entry-selector e) (entry-port e) (memq (entry-type e) '(dos-archive binary gif))))	Err	vernunftzentrum.de	70
i@@ -289,8 +287,8 @@	Err	vernunftzentrum.de	70
i       (new-status "~a" next)	Err	vernunftzentrum.de	70
i       (cond	Err	vernunftzentrum.de	70
i          ((equal? next 'quit) (exit 0))	Err	vernunftzentrum.de	70
i-          ((equal? next 'back) (select-entry (previous-page)))	Err	vernunftzentrum.de	70
i-          (else (select-entry next)))))	Err	vernunftzentrum.de	70
i+         ((equal? next 'back) (select-entry (previous-page)))	Err	vernunftzentrum.de	70
i+         (else (select-entry next)))))	Err	vernunftzentrum.de	70
i 	Err	vernunftzentrum.de	70
i (define (uri->entry uri-string)	Err	vernunftzentrum.de	70
i   (let* ((u (uri-reference uri-string))	Err	vernunftzentrum.de	70
.