gsg · February 26, 2016 17:30
diff --git a/test.ml b/test.ml
 let r : int option ref = ref None

 let test = Lazy.from_fun (fun () -> match !r with
    | None -> assert false
    | Some x -> x)

 let _ = r := Some 42

 let _ = print_int (Lazy.force test)
	let r : int option ref = ref None

	let test = Lazy.from_fun (fun () -> match !r with
	\| None -> assert false
	\| Some x -> x)

	let _ = r := Some 42

	let _ = print_int (Lazy.force test)