4 lines
116 B
Text
4 lines
116 B
Text
|
let f = ref (\x -> x)
|
||
|
|
let test =
|
||
|
|
f := (\x -> "This test is OK.\n");
|
||
|
|
print_string (!f ("This test is KO.\n"))
|