Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |