4 lines
No EOL
116 B
Text
4 lines
No EOL
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")) |