summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
Diffstat (limited to 'module')
-rw-r--r--module/language/tree-il/analyze.scm2
-rw-r--r--module/language/tree-il/compile-glil.scm4
2 files changed, 3 insertions, 3 deletions
diff --git a/module/language/tree-il/analyze.scm b/module/language/tree-il/analyze.scm
index 10c1d0bd6..50a0fb80b 100644
--- a/module/language/tree-il/analyze.scm
+++ b/module/language/tree-il/analyze.scm
@@ -502,7 +502,7 @@
(refs binding-info-refs) ;; (GENSYM ...)
(locs binding-info-locs)) ;; (LOCATION ...)
-(define (report-unused-variables tree)
+(define (report-unused-variables tree env)
"Report about unused variables in TREE. Return TREE."
(define (dotless-list lst)
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))