mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +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

4
scripts/ChangeLog
View file

@ -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> 2002-10-05 Marius Vollmer <mvo@zagadka.ping.de>
* snarf-check-and-output-texi (end-multiline): Use '*function-name*' * snarf-check-and-output-texi (end-multiline): Use '*function-name*'

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)))) (free-vars (uniq (scan-file-for-free-variables filename))))
(let ((module (resolve-module module-name)) (let ((module (resolve-module module-name))
(all-resolved? #t)) (all-resolved? #t))
(format #t "Resolved module: ~S\n" module)
(let loop ((free-vars free-vars)) (let loop ((free-vars free-vars))
(or (null? free-vars) (or (null? free-vars)
(begin (begin