This repository has been archived on 2024-01-18. You can view files and clone it, but cannot push or open issues or pull requests.
compilation/flap/tests/02-Interpreter/41-allocate-06.eval.hopix.human-readable

4 lines
116 B
Text
Raw Permalink Normal View History

2023-10-25 15:16:53 +02:00
let f = ref (\x -> x)
let test =
f := (\x -> "This test is OK.\n");
print_string (!f ("This test is KO.\n"))