[tiger.ml.git] / compiler / src / lib / tiger / tiger_error.ml

module Pos = Tiger_position

exception T of string

let exn ~pos msg =
  let msg = Printf.sprintf "Error: %s. In %s." msg (Pos.to_string pos) in
  raise (T msg)
Commit	Line	Data
7c14a966 SK	1	module Pos = Tiger_position
	2
	3	exception T of string
	4
2f38b9f1	5	let exn ~pos msg =
7c14a966 SK	6	let msg = Printf.sprintf "Error: %s. In %s." msg (Pos.to_string pos) in
7c14a966 SK	7	raise (T msg)