From 60f10e08308a6a8df543268db59f580ddc27c743 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 28 Jul 2013 19:38:12 -0400 Subject: Update examples. --- examples/particles.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'examples/particles.scm') diff --git a/examples/particles.scm b/examples/particles.scm index 53f9d54..a71bc13 100644 --- a/examples/particles.scm +++ b/examples/particles.scm @@ -60,9 +60,9 @@ (draw-sprite sprite))) particles))) -(set-render-callback (lambda () (render))) -(set-update-callback (lambda () (update))) -(set-key-down-callback (lambda (key mod unicode) (key-down key mod unicode))) +(add-hook! on-render-hook (lambda () (render))) +(add-hook! on-update-hook (lambda () (update))) +(add-hook! on-key-down-hook (lambda (key mod unicode) (key-down key mod unicode))) (define (key-down key mod unicode) (cond ((any-equal? key 'escape 'q) -- cgit v1.2.3