John David Pressman 71989876db Fix a bug, test added:
A never accounted message was not adding anything to the map
2020-01-08 20:58:26 +00:00

11 lines
238 B
Plaintext

type storage = unit;
/* Not supported yet:
let main (p:unit) storage = (fun x -> ()) ()
*/
let main2 = (z: unit, storage) =>
((f: (unit => unit)) => f())((z: unit) => unit);
let main = (x: (unit, storage)) => main2(x[0],x[1]);