Escape key works in more places

parent 320c14ab
......@@ -501,7 +501,7 @@
($ player-ship 'move-right)]
[" "
($ player-ship 'fire)]
["q"
[(or "q" "C-[")
($ exit-reason 'quit)]
[_
'no-op])]))
......
......@@ -57,7 +57,7 @@
(match (vector-ref menu-options selection)
[(list _option-text option-func)
(option-func)])]
["q"
[(or "q" "C-[")
($ dpr-pushdown 'pop)]
[_
'no-op])]
......
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