From daeea2a9fb373590b38f45dd1cb75ee6b187ebf9 Mon Sep 17 00:00:00 2001
From: Neil Jerram <neil@ossau.uklinux.net>
Date: Sat, 26 Oct 2002 18:58:17 +0000
Subject: [PATCH] Make (scripts lint) announce resolved module name.

---
 scripts/ChangeLog | 4 ++++
 scripts/lint      | 1 +
 2 files changed, 5 insertions(+)

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
index 83e877702..3f5c17fe8 100644
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2002-10-26  Neil Jerram  <neil@ossau.uklinux.net>
+
+	* lint (lint): Add message telling resolved module name.
+
 2002-10-05  Marius Vollmer  <mvo@zagadka.ping.de>
 
 	* snarf-check-and-output-texi (end-multiline): Use '*function-name*'
diff --git a/scripts/lint b/scripts/lint
index a43cfc065..9921020ed 100755
--- a/scripts/lint
+++ b/scripts/lint
@@ -115,6 +115,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 	(free-vars (uniq (scan-file-for-free-variables filename))))
     (let ((module (resolve-module module-name))
 	  (all-resolved? #t))
+      (format #t "Resolved module: ~S\n" module)
       (let loop ((free-vars free-vars))
 	(or (null? free-vars)
 	    (begin