Commit 963b13b7 authored by Hugo Hörnquist's avatar Hugo Hörnquist

Fix close (x) button.

parent 063fab1c
......@@ -57,7 +57,8 @@
keys-down))]
[(keyboard-up-event? ev)
(set! keys-down (delv (keyboard-event-scancode ev)
keys-down))]))
keys-down))]
[(quit-event? ev) (raise SIGINT)]))
(for-each
......
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