let load_prog_platter a = !platters.(0) <- a; a
plat load_prog_platter(plat a) { (*platters)[0] = a; return a; }
He did comment one part, though: "(* we deliberately use Array.get to check bounds; use unsafe_ for speed *)".
(The only big function, exec, is an Opcode -> Action table.)
He did comment one part, though: "(* we deliberately use Array.get to check bounds; use unsafe_ for speed *)".
(The only big function, exec, is an Opcode -> Action table.)