implement function to trace left jump, thereby completing 'build-graph.sml' (and fix a bug in trace-jump.sml where a left-tracing function mistakenly made a tail call to a right-tracing function)

2025-01-31 00:35:36 +00:00
parent 70f04c2e92
commit 0cdd81189c
2 changed files with 44 additions and 2 deletions
--- a/fcore/trace-jump.sml
+++ b/fcore/trace-jump.sml
@@ -91,7 +91,7 @@ struct
        val nextY = y + Constants.moveEnemyBy
      in
        shouldJumpLeft
-        orelse traceRightDescent (nextX, nextY, nextPlatID, platTree)
+        orelse traceLeftDescent (nextX, nextY, nextPlatID, platTree)
      end

  fun traceLeftDrop (enemy: GameType.enemy, nextPlatID, platTree) =