11 lines
213 B
OCaml
11 lines
213 B
OCaml
open General
|
|
|
|
let failwith = FromStdlib.failwith
|
|
|
|
let guarantee b =
|
|
if not b then
|
|
failwith "guarantee failed.\n"
|
|
|
|
let guarantee_equal a b =
|
|
if a <> b then
|
|
failwith "guarantee_equal failed." |