preparation for adding new additional threads/mailboxes (namely, the file mailbox)

2024-08-28 20:11:00 +01:00
parent fb9202248c
commit e587c6cf73
8 changed files with 59 additions and 49 deletions
--- a/imperative-shell/draw-thread.sml
+++ b/imperative-shell/draw-thread.sml
@@ -150,18 +150,7 @@ struct
                   , triangleDrawObject
                   , triangleDrawLength
                   )
-               end
-           | NO_DRAW =>
-               run
-                 ( drawMailbox
-                 , window
-                 , graphDrawObject
-                 , drawGraphLength
-                 , dotDrawObject
-                 , dotDrawLength
-                 , triangleDrawObject
-                 , triangleDrawLength
-                 ))
+               end)
    else
      Glfw.terminate ()
 end