From d478403e7d2ec7716a53522bfb4f7952274695a4 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 27 Mar 2016 12:08:31 -0400 Subject: [PATCH] Remove own GC tuning in favour of prospect-gl feature. --- examples/platformer/main.rkt | 25 ++++++++++++------------- 1 file changed, 12 insertions(+), 13 deletions(-) diff --git a/examples/platformer/main.rkt b/examples/platformer/main.rkt index bfb4686..1b434bf 100644 --- a/examples/platformer/main.rkt +++ b/examples/platformer/main.rkt @@ -577,7 +577,6 @@ (evaluate-jump-request id s)] [(message (at-meta (at-meta (at-meta (frame-event counter _ elapsed-ms _))))) (when (zero? (modulo counter 10)) - (collect-garbage 'incremental) (log-info "Instantaneous frame rate at frame ~a: ~a Hz" counter (/ 1000.0 elapsed-ms))) @@ -933,18 +932,18 @@ ))) (define (spawn-numbered-level level-number) - (collect-garbage 'major) - (if (< level-number (length (force levels))) - (list-ref (force levels) level-number) - (spawn-standalone-assertions - (update-sprites #:meta-level 2 - (let ((message (text "You won!" 72 "red"))) - (simple-sprite 0 - 10 - 100 - (image-width message) - (image-height message) - message)))))) + (list (message (at-meta (at-meta (request-gc)))) + (if (< level-number (length (force levels))) + (list-ref (force levels) level-number) + (spawn-standalone-assertions + (update-sprites #:meta-level 2 + (let ((message (text "You won!" 72 "red"))) + (simple-sprite 0 + 10 + 100 + (image-width message) + (image-height message) + message))))))) (define (spawn-level-spawner starting-level) (struct level-spawner-state (current-level level-complete?) #:prefab)