Get line number of script line currently executed

[vetelko]

Hi guys,



is it possible to get line number which is currently executed in script? Somethin like:

Code Select Expand


(if error  (println $lineno))
;; something magical like $it :)

Thanks in advance.

[rrq]

If nothing else, you could perhaps use an expression reading counter

Code Select Expand

(reader-event (fn (x) (inc $exprno) x))