restore imperative shell

2024-08-08 05:56:20 +01:00
parent 1264e20dc8
commit a53c5e1ce3
6 changed files with 47 additions and 23 deletions
--- a/functional-core/app-init.sml
+++ b/functional-core/app-init.sml
@@ -1,6 +1,6 @@
-signature APP_INIT = 
+signature APP_INIT =
 sig
-  val fromWidthAndHeight : int * int -> AppType.app_type
+  val fromWindowWidthAndHeight: int * int -> AppType.app_type
 end

 structure AppInit :> APP_INIT =
@@ -26,7 +26,7 @@ struct
      }
    end

-  fun fromWidthAndHeight (windowWidth, windowHeight) =
+  fun fromWindowWidthAndHeight (windowWidth, windowHeight) =
    if windowWidth = windowHeight then
      helpFromWidthAndHeight
        (windowWidth, windowHeight, 0, windowWidth, 0, windowHeight)