blob: 2b6bdf075b22389e358228f65a536fcdb9d10ebe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(* TEST *)
(* when run with the bytecode debug runtime, this test
used to trigger a bug where the constant [13]
remained unpromoted *)
let rec burn l =
if List.hd l > 14 then ()
else burn (l @ l |> List.map (fun x -> x + 1))
let () =
ignore (Domain.spawn (fun () -> burn [13]));
burn [0];
Printf.printf "all done\n%!"
|