src/nbc/fail.sml


1
2
3
4
5
6
7
8
9
10

signature FAIL = sig
	val fail: string -> 'a
end

structure Fail :> FAIL = struct
	fun fail why = (
		TextIO.output (TextIO.stdErr, why ^ "\n")
		; OS.Process.exit OS.Process.failure
	)
end