fix compile errors after previous commit (which involved reimplementing the quad tree to eliminate the possibility of a class of bugs I was experiencing; the problem was that the quad bounds were being passed recursively in different functions, but the long argument list in these functions made it difficult to see where the mismatch was)

fcore/player.sml

@@ -320,8 +320,9 @@ struct
     let
       val player = #player game
 
-      val _ = print ("(playerX, playerY) = (" ^Int.toString (#x player) ^ ", " ^
-      Int.toString (#y player) ^ ")\n")
+      val _ = print
+        ("(playerX, playerY) = (" ^ Int.toString (#x player) ^ ", "
+         ^ Int.toString (#y player) ^ ")\n")
 
       val patches = getProjectilePatches player
       val player = PlayerPatch.withPatches (player, patches)
@@ -430,8 +431,8 @@ struct
 
       val ww = Constants.worldWidth
       val wh = Constants.worldHeight
-      val enemyCollisions = QuadHelp.getCollisions
-        (x, y, size, size, enemyTree)
+      val enemyCollisions = QuadTree.getCollisions
+        (x, y, size, size, ~1, enemyTree)
     in
       Vector.fromList enemyCollisions
     end