functorise environment collision patches

2025-01-13 09:42:32 +00:00
parent 7290d9865d
commit 4484eb0ef0
3 changed files with 101 additions and 91 deletions
--- a/fcore/enemy.sml
+++ b/fcore/enemy.sml
@@ -29,7 +29,7 @@ struct
          acc
        else
          let
-            val patches = EnemyPhysics.getPatches enemy
+            val patches = EnemyPhysics.getPhysicsPatches enemy
            val patches = EnemyPatch.W_HEALTH (health - 1) :: patches
            val enemy = EnemyPatch.withPatches (enemy, patches)
          in
@@ -37,7 +37,7 @@ struct
          end
      else
        let
-          val patches = EnemyPhysics.getPatches enemy
+          val patches = EnemyPhysics.getPhysicsPatches enemy
          val enemy = EnemyPatch.withPatches (enemy, patches)
        in
          enemy :: acc