summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorNeil Jerram <neil@ossau.uklinux.net>2002-10-26 18:58:17 +0000
committerNeil Jerram <neil@ossau.uklinux.net>2002-10-26 18:58:17 +0000
commitdaeea2a9fb373590b38f45dd1cb75ee6b187ebf9 (patch)
treebf1a5764bfabce6aac2d631b42b66f438553806b /scripts
parentbf1fa0a5ddf627cb4ee11d4857ac54f87a7b54a8 (diff)
downloadguile-daeea2a9fb373590b38f45dd1cb75ee6b187ebf9.tar.gz
Make (scripts lint) announce resolved module name.
Diffstat (limited to 'scripts')
-rw-r--r--scripts/ChangeLog4
-rwxr-xr-xscripts/lint1
2 files changed, 5 insertions, 0 deletions
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