fcore/app-update.sml

structure AppUpdate =
struct
  open AppType

  fun update (app, msg) =
    case #mode app of NORMAL_MODE str => NormalMode.update (app, str, msg)
end
scaffolding for concurrent ml 2024-10-06 09:32:56 +01:00			`structure AppUpdate =`
			`struct`
			`open AppType`

			`fun update (app, msg) =`
done refactoring normal mode functions 2025-08-07 18:09:52 +01:00			`case #mode app of NORMAL_MODE str => NormalMode.update (app, str, msg)`
scaffolding for concurrent ml 2024-10-06 09:32:56 +01:00			`end`