src/cljcc/exception.clj


1
2
3
4
5
6
7

(ns cljcc.exception)

(defn lex-error [{line :line col :col msg :msg}]
  (let [err-msg (if (empty? msg)
                  (format "Lexer error. Invalid token at line: %s, col: %s." line col)
                  (format "Lexer error. Invalid token at line: %s, col: %s. %s" line col msg))]
    (throw (ex-info err-msg {}))))