diff options
Diffstat (limited to 'apple-town-fair/menu.scm')
-rw-r--r-- | apple-town-fair/menu.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/apple-town-fair/menu.scm b/apple-town-fair/menu.scm index ad3b893..3ec4b2e 100644 --- a/apple-town-fair/menu.scm +++ b/apple-town-fair/menu.scm @@ -75,11 +75,11 @@ (define-method (select-item (menu <menu>) i) (let* ((i (clamp 0 (- (length (items menu)) 1) i)) - (node (list-ref (item-nodes menu) i))) + (nodes (item-nodes menu))) (set! (selected-item menu) i) - (when node + (unless (null? nodes) (set! (position-y (& menu highlight)) - (position-y node))))) + (position-y (list-ref nodes i)))))) (define-method (selection (menu <menu>)) (let ((node (list-ref (item-nodes menu) (selected-item menu)))) |