RosettaCodeData/Task/Assertions/Standard-ML/assertions.ml
2023-07-01 13:44:08 -04:00

4 lines
87 B
OCaml

fun assert cond =
if cond then () else raise Fail "assert"
val () = assert (x = 42)