RosettaCodeData/Task/Assertions/Standard-ML/assertions.ml

5 lines
87 B
OCaml
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
fun assert cond =
if cond then () else raise Fail "assert"
val () = assert (x = 42)