1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
open Types
let pprint_endline args =
let x = (match args with
| [EvtString x] -> x
| [x] -> show_unpacked_evt x
| _ -> raise WrongPrimitiveArgs) in
print_endline x; EvtUnit
let pprint args =
let x = (match args with
| [EvtString x] -> x
| [x] -> show_unpacked_evt x
| _ -> raise WrongPrimitiveArgs) in
print_string x; EvtUnit
let table = [
("print", (pprint, 1));
("print_endline", (pprint_endline, 1));
]