Fix selection buttons

parent ba0118c7
......@@ -43,10 +43,10 @@
[(handle-event evt)
(match evt
["<up>"
(bcom (next (modulo (add1 selection)
(bcom (next (modulo (sub1 selection)
(vector-length menu-options))))]
["<down>"
(bcom (next (modulo (abs (sub1 selection))
(bcom (next (modulo (add1 selection)
(vector-length menu-options))))]
[(or " " "C-M")
(match (vector-ref menu-options selection)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment