summaryrefslogtreecommitdiff
path: root/module/language/tree-il/compile-glil.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/tree-il/compile-glil.scm')
-rw-r--r--module/language/tree-il/compile-glil.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/tree-il/compile-glil.scm b/module/language/tree-il/compile-glil.scm
index d13cf7ca5..a78eaa6ce 100644
--- a/module/language/tree-il/compile-glil.scm
+++ b/module/language/tree-il/compile-glil.scm
@@ -53,11 +53,11 @@
(or (and=> (memq #:warnings opts) cadr)
'()))
- ;; Go throught the warning passes.
+ ;; Go through the warning passes.
(for-each (lambda (kind)
(let ((warn (assoc-ref %warning-passes kind)))
(and (procedure? warn)
- (warn x))))
+ (warn x e))))
warnings)
(let* ((x (make-lambda (tree-il-src x) '() '() '() x))