From d0ff41fb7a33c096a792ab57f5bbf7992b1cc399 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 4 May 2014 14:03:00 -0400 Subject: Add current-agenda parameter. * 2d/agenda.scm (current-agenda): New variable. (with-agenda): New macro. (agenda-time, tick-agenda!, clear-agenda!, schedule) (schedule-interval, schedule-each, wait): Remove agenda parameter. * 2d/game.scm (game-agenda): Delete it. (update): Tick current agenda. * 2d/helpers.scm (define-guardian): Remove agenda argument. * 2d/repl.scm (start-2d-repl): Remove agenda argument to schedule-each. * 2d/signal.scm (signal-sample, signal-delay, signal-throttle): Remove agenda parameter. * 2d/sprite.scm: * examples/common.scm: * examples/coroutine.scm: * examples/font.scm: * examples/particles.scm: Remove mention of game-agenda. * README.org: Update example snippets. --- examples/font.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'examples/font.scm') diff --git a/examples/font.scm b/examples/font.scm index 304070f..8bcd90d 100644 --- a/examples/font.scm +++ b/examples/font.scm @@ -44,7 +44,7 @@ (signal-map (lambda (p) (let ((text (format #f "Mouse: (~d, ~d)" (vx p) (vy p)))) (make-label font text (vector2 0 20)))) - (signal-throttle game-agenda 5 mouse-position))) + (signal-throttle 5 mouse-position))) (add-hook! draw-hook (lambda (dt alpha) (draw-label label) -- cgit v1.2.3