This is the mail archive of the
guile@sourceware.cygnus.com
mailing list for the Guile project.
Unnecessary code in boot-9.scm
- To: Guile Mailing List <guile at sourceware dot cygnus dot com>
- Subject: Unnecessary code in boot-9.scm
- From: Dirk Herrmann <dirk at ida dot ing dot tu-bs dot de>
- Date: Tue, 1 Feb 2000 15:47:37 +0100 (MET)
Hi!
The definition
(define (sfx name) (string-append name (scheme-file-suffix)))
in line 1848 of boot-9.scm is never used.
Best regards
Dirk Herrmann
Index: ice-9/boot-9.scm
===================================================================
RCS file: /cvs/guile/guile/guile-core/ice-9/boot-9.scm,v
retrieving revision 1.198
diff -u -p -r1.198 boot-9.scm
--- boot-9.scm 2000/01/11 18:52:25 1.198
+++ boot-9.scm 2000/01/27 16:39:22
@@ -1845,7 +1845,6 @@
(define (try-module-autoload module-name)
- (define (sfx name) (string-append name (scheme-file-suffix)))
(let* ((reverse-name (reverse module-name))
(name (car reverse-name))
(dir-hint-module-name (reverse (cdr reverse-name)))