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/coroutine.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples/coroutine.scm') diff --git a/examples/coroutine.scm b/examples/coroutine.scm index 2791944..2bf7ecb 100644 --- a/examples/coroutine.scm +++ b/examples/coroutine.scm @@ -21,8 +21,8 @@ (draw-sprite sprite)) ;; Register callbacks. -(set-render-callback (lambda () (render))) -(set-key-down-callback (lambda (key mod unicode) (key-down key mod unicode))) +(add-hook! on-render-hook (lambda () (render))) +(add-hook! on-key-down-hook (lambda (key mod unicode) (key-down key mod unicode))) ;; Open the window. (open-window window-width window-height) -- cgit v1.2.3