diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2002-10-26 18:58:17 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2002-10-26 18:58:17 +0000 |
commit | daeea2a9fb373590b38f45dd1cb75ee6b187ebf9 (patch) | |
tree | bf1a5764bfabce6aac2d631b42b66f438553806b /scripts | |
parent | bf1fa0a5ddf627cb4ee11d4857ac54f87a7b54a8 (diff) | |
download | guile-daeea2a9fb373590b38f45dd1cb75ee6b187ebf9.tar.gz |
Make (scripts lint) announce resolved module name.
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/ChangeLog | 4 | ||||
-rwxr-xr-x | scripts/lint | 1 |
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 |