From dd46761a2f2dd959b9f73ee88a93b64e0e0ff894 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 28 Oct 2001 21:51:23 +0000 Subject: [PATCH] ... original commit: f12bcf895e838799c9e4363a7f5fcaa90a792edf --- collects/hierlist/hierlist-unit.ss | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/hierlist/hierlist-unit.ss b/collects/hierlist/hierlist-unit.ss index 68916f50..0fcadf8f 100644 --- a/collects/hierlist/hierlist-unit.ss +++ b/collects/hierlist/hierlist-unit.ss @@ -652,11 +652,12 @@ (let* ([l (if selected (send (send selected get-parent) get-items) (get-items))] - [pos (if selected-item - (+ dir (find selected-item l)) - (if (negative? dir) - (sub1 (length l)) - 0))]) + [pos (let ([found (find selected-item l)]) + (if (and selected-item found) + (+ dir found) + (if (negative? dir) + (sub1 (length l)) + 0)))]) (when (< -1 pos (length l)) (let ([i (list-ref l pos)]) (send i select #t)