diff options
| author | David Thompson <dthompson2@worcester.edu> | 2013-07-28 19:38:12 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2013-07-28 19:38:12 -0400 |
| commit | 60f10e08308a6a8df543268db59f580ddc27c743 (patch) | |
| tree | 3202ed51a2be4d832727fab1e51fab3cda4bd538 /examples/particles.scm | |
| parent | db8d684650365a2e39e6607edcdb167fdf9f81b7 (diff) | |
Update examples.
Diffstat (limited to 'examples/particles.scm')
| -rw-r--r-- | examples/particles.scm | 6 |
1 files changed, 3 insertions, 3 deletions
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) |