/[guile]/guile/guile-core/scripts/lint
ViewVC logotype

Diff of /guile/guile-core/scripts/lint

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by ttn, Thu Apr 4 23:56:21 2002 UTC revision 1.3 by ossau, Sat Oct 26 18:58:17 2002 UTC
# Line 115  exec ${GUILE-guile} -l $0 -c "(apply $ma Line 115  exec ${GUILE-guile} -l $0 -c "(apply $ma
115          (free-vars (uniq (scan-file-for-free-variables filename))))          (free-vars (uniq (scan-file-for-free-variables filename))))
116      (let ((module (resolve-module module-name))      (let ((module (resolve-module module-name))
117            (all-resolved? #t))            (all-resolved? #t))
118          (format #t "Resolved module: ~S\n" module)
119        (let loop ((free-vars free-vars))        (let loop ((free-vars free-vars))
120          (or (null? free-vars)          (or (null? free-vars)
121              (begin              (begin

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26