fix crash when hitting home - 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 69d7052e852a6a01b9c67e022590a466675c01ec
 (DIR) parent 0a9c37e9adfba3f5c643b06f32a90c68ff104763
 (HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
       Date:   Tue, 13 Mar 2018 22:55:01 +0100
       
       fix crash when hitting home
       
       Diffstat:
         holymoly.scm                        |      17 ++++++++++++++---
       
       1 file changed, 14 insertions(+), 3 deletions(-)
       ---
 (DIR) diff --git a/holymoly.scm b/holymoly.scm
       @@ -1,4 +1,14 @@
       -(use irregex tcp miscmacros srfi-13 srfi-4 posix ncurses matchable srfi-71)
       +(use
       +    irregex
       +    tcp
       +    miscmacros
       +    srfi-13
       +    srfi-4
       +    posix
       +    ncurses
       +    matchable
       +    srfi-71
       +    srfi-4)
        
        (include "proxy.scm")
        (include "cursor.scm")
       @@ -62,8 +72,9 @@
                            (cond
                             (use-cursor (next-cursor! cursor) pos)
                             (else (if (= pos nlines) pos (set! pos (add1 pos))))))
       -                   ((#x106) (when use-cursor (set! cursor 0)) (set! pos 0)) ; HOME
       -                   ((#x168) (when use-cursor (set! cursor (sub1 (length dlines)))) (set! pos (max pos (- nlines pos rows)))) ; end
       +                   ((#x106) (when use-cursor (set! cursor (list->cursor selectables))) (set! pos 0)) ; HOME
       +                   ((#x168) (when use-cursor #;
       +(set! cursor (sub1 (length dlines)))) (set! pos (max pos (- nlines pos rows)))) ; end
                           ((260) (if use-cursor (k (previous-page)) (k #f)))
                           ((32)
                            (set! pos (if (> (+ pos rows) nlines) pos (+ pos (sub1 rows))))