summaryrefslogtreecommitdiff
path: root/module/language/tree-il/analyze.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/tree-il/analyze.scm')
-rw-r--r--module/language/tree-il/analyze.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/module/language/tree-il/analyze.scm b/module/language/tree-il/analyze.scm
index 1567e3ec5..7918b9ddd 100644
--- a/module/language/tree-il/analyze.scm
+++ b/module/language/tree-il/analyze.scm
@@ -1,6 +1,6 @@
;;; Diagnostic warnings for Tree-IL
-;; Copyright (C) 2001,2008-2014,2016,2018-2021 Free Software Foundation, Inc.
+;; Copyright (C) 2001,2008-2014,2016,2018-2022 Free Software Foundation, Inc.
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -346,11 +346,11 @@ given `tree-il' element."
(lambda (x defs env locs)
;; Going down into X.
(record-case x
- ((<toplevel-define> name src)
+ ((<toplevel-define> name)
(match (vhash-assq name defs)
((_ . previous-definition)
- (warning 'shadowed-toplevel src name
- (toplevel-define-src previous-definition))
+ (warning 'shadowed-toplevel (tree-il-src x) name
+ (tree-il-src previous-definition))
defs)
(#f
(vhash-consq name x defs))))