Fix Time

minoki · Jul 24, 2023 · 951cd1c · 951cd1c
1 parent 3ecbde0
commit 951cd1c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/lunarml/ml/basis/lua/time.sml b/lib/lunarml/ml/basis/lua/time.sml
@@ -90,7 +90,7 @@ fun toLuaTime (x : int) : Lua.value
           val min' = x div 60
           val min = min' mod 60
           val hour' = min' div 60
-          val hour = hour' mod 60
+          val hour = hour' mod 24
           val day' = hour' div 24
           val t = Lua.newTable ()
       in Lua.setField (t, "year", Lua.fromInt 1970)

diff --git a/lib/lunarml/ml/basis/luajit/time.sml b/lib/lunarml/ml/basis/luajit/time.sml
@@ -90,7 +90,7 @@ fun toLuaTime (x : Int54.int) : Lua.value
           val min' = x div 60
           val min = min' mod 60
           val hour' = min' div 60
-          val hour = hour' mod 60
+          val hour = hour' mod 24
           val day' = hour' div 24
           val t = Lua.newTable ()
       in Lua.setField (t, "year", Lua.fromInt 1970)