UniTO/tesi/traces/guards2.ml
Francesco Mecca dea5a6fbe4 traces
2020-06-30 19:31:56 +02:00

8 lines
198 B
OCaml

[@@@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