Rename level const to not to shadow line in eval1
(array/clear lints)
(def res (compile source env where lints))
(each [level line col msg] lints
- (def l (get lint-levels level 0))
+ (def lvl (get lint-levels level 0))
(cond
- (<= l lint-error) (do
+ (<= lvl lint-error) (do
(set good false)
(on-compile-error msg nil where (or line l) (or col c)))
- (<= l lint-warning) (on-compile-warning msg level where (or line l) (or col c))))
+ (<= lvl lint-warning) (on-compile-warning msg level where (or line l) (or col c))))
(when good
(if (= (type res) :function)
(evaluator res source env where)
