blob: ad65c7365629f2d0f39456bce7215e82effdc2fa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(seq (ignore (let (x = [0: 13 37]) (makeblock 0 x)))
(let
(A =
(apply (field_imm 0 (global CamlinternalMod!))
[0: "anonymous.ml" 25 6] [0: [0]])
B =
(apply (field_imm 0 (global CamlinternalMod!))
[0: "anonymous.ml" 35 6] [0: [0]]))
(seq (ignore (let (x = [0: 4 2]) (makeblock 0 x)))
(apply (field_imm 1 (global CamlinternalMod!)) [0: [0]] A
(module-defn(A) anonymous.ml(23):567-608 A))
(apply (field_imm 1 (global CamlinternalMod!)) [0: [0]] B
(module-defn(B) anonymous.ml(33):703-773
(let (x = [0: "foo" "bar"]) (makeblock 0))))
(let (f = (function param 0a) s = (makemutable 0 ""))
(seq
(ignore
(let (*match* = (setfield_ptr 0 s "Hello World!")) (makeblock 0)))
(let
(drop = (function param 0a) *match* = (apply drop (field 0 s)))
(makeblock 0 A B f s drop)))))))
|
