8 lines
No EOL
168 B
Text
8 lines
No EOL
168 B
Text
let r1 = ref (ref "KO")
|
|
let r2 = ref "KO"
|
|
let test =
|
|
r1 := r2;
|
|
r2 := "OK";
|
|
print_string ("This test is ");
|
|
print_string (!!r1);
|
|
print_string (".\n") |