aboutsummaryrefslogtreecommitdiff
path: root/physics.scm
diff options
context:
space:
mode:
Diffstat (limited to 'physics.scm')
-rw-r--r--physics.scm7
1 files changed, 3 insertions, 4 deletions
diff --git a/physics.scm b/physics.scm
index 56966c2..24ded09 100644
--- a/physics.scm
+++ b/physics.scm
@@ -318,8 +318,7 @@
entities
(index-pairs (length entities))))
- ;; Wrapper for scene-resolve-collisions
+ ;; Returns a new scene with entity-entity collisions resolved.
(define (scene-resolve-collisions scene)
- (scene-entities-set! scene
- (resolve-entity-collisions (scene-entities scene)))
- scene))
+ (update-scene scene
+ entities: (resolve-entity-collisions (scene-entities scene)))))