diff options
Diffstat (limited to 'module/language/tree-il/compile-glil.scm')
-rw-r--r-- | module/language/tree-il/compile-glil.scm | 4 |
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)) |