diff --git a/src/boot/boot.janet b/src/boot/boot.janet
index 1b69e701..a73ab2db 100644
--- a/src/boot/boot.janet
+++ b/src/boot/boot.janet
@@ -2210,12 +2210,12 @@
           (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
-                                  (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-error) (do
+                                    (set good false)
+                                    (on-compile-error msg nil 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)