failwith

gistfile1.fs

// stackless raise
let inline raise (e : exn) = (# "throw" e : ^T #)

let inline failwith ctor = raise << ctor
let inline failwithf ctor fmt = Printf.ksprintf (raise << ctor) fmt

// 1
exception SomeOtherException of string
    with override e.Message = e.Data0

failwithf SomeOtherException "exception %d" 42

// 2
let inline invalidOp msg = new InvalidOperationException(msg)

failwithf invalidOp "Invalid operation %s" "foo"