UniTO/tesi/traces/guards2.ml
2024-10-29 09:11:05 +01:00

8 lines
198 B
OCaml
Executable file

[@@@warning "-20"]
external observe : 'a -> 'b = "observe"
external guard : 'a -> 'b = "guard"
let ff = function
| x when guard () -> observe 1
| _ when guard 1 -> observe 2
| _ -> observe 3