fcore/app-update.sml

structure AppUpdate =
struct
  open AppType

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

progress fixing compile errors resulting from adding 'bufferModifyTime' field (fixed normal-mode move expressions) 2025-08-20 12:50:39 +01:00			`fun update (app, msg, time) =`
			`case #mode app of NORMAL_MODE str => NormalMode.update (app, str, msg, time)`
scaffolding for concurrent ml 2024-10-06 09:32:56 +01:00			`end`