fix bugs related to parsing and loading file (did not implement new BNF grammar properly)

2025-08-09 12:39:41 +01:00
parent d6f7583273
commit 143d02163b
6 changed files with 51 additions and 30 deletions
--- a/fcore/app-with.sml
+++ b/fcore/app-with.sml
@@ -1011,8 +1011,8 @@ struct
        , yClickPoints
        , windowWidth
        , windowHeight
-        , arrowX = _
-        , arrowY = _
+        , arrowX
+        , arrowY
        , canvasWidth = _
        , canvasHeight = _

@@ -1028,9 +1028,6 @@ struct
        , layerTree = _
        , modalNum
        } = app
-
-      val arrowX = 0
-      val arrowY = 0
    in
      { mode = mode
      , mouseX = mouseX