mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

Make (scripts lint) announce resolved module name.

Browse source
This commit is contained in:
Neil Jerram 2002-10-26 18:58:17 +00:00
parent bf1fa0a5dd
commit daeea2a9fb
2 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
scripts/lint
View file

@ -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