diff options
Diffstat (limited to '2d/helpers.scm')
| -rw-r--r-- | 2d/helpers.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/2d/helpers.scm b/2d/helpers.scm index 18bf8fa..59633d6 100644 --- a/2d/helpers.scm +++ b/2d/helpers.scm @@ -45,10 +45,9 @@ within the guardian is GC'd. Reaping is ensured to happen from the same thread that is running the game loop." (begin (define name (make-guardian)) - (schedule-interval game-agenda - (lambda () - (let reap ((obj (name))) - (when obj - (reaper obj) - (reap (name))))) - 1))) + (schedule-each + (lambda () + (let reap ((obj (name))) + (when obj + (reaper obj) + (reap (name)))))))) |