Update simple demo.

1 files changed, 6 insertions, 2 deletions

diff --git a/examples/simple.scm b/examples/simple.scm
index ad98548..bcc94b7 100644
--- a/examples/simple.scm
+++ b/examples/simple.scm
@@ -11,16 +11,20 @@
 (define window-height 600)
 (define sprite #f)
 
+(define (quit-demo)
+  (close-window)
+  (quit))
+
 (define (key-down key mod unicode)
   (cond ((any-equal? key 'escape 'q)
-         (close-window)
-         (quit))))
+         (quit-demo))))
 
 ;; Draw our sprite
 (define (render)
   (draw-sprite sprite))
 
 ;; Register callbacks.
+(set-quit-callback (lambda () (quit)))
 (set-render-callback (lambda () (render)))
 (set-key-down-callback (lambda (key mod unicode) (key-down key mod unicode)))