Fix close (x) button.

963b13b7 · Hugo Hörnquist · 063fab1c · 963b13b7
Commit 963b13b7 authored Jun 09, 2019 by Hugo Hörnquist
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

main.scm main.scm +2 -1

No files found.
--- a/main.scm
+++ b/main.scm
@@ -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