8 lines
198 B
OCaml
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
|