From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Mon, 25 Apr 2011 20:00:09 +0000 (-0700)
Subject: Fixed recent enhancement to compile-file.
X-Git-Tag: 20110426-Gtk~1^2~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=50ddebdbd33130f0e92d4d0a353c6d5825dd43d1;p=mit-scheme.git

Fixed recent enhancement to compile-file.
---

diff --git a/src/compiler/base/toplev.scm b/src/compiler/base/toplev.scm
index 358375fba..4263addfa 100644
--- a/src/compiler/base/toplev.scm
+++ b/src/compiler/base/toplev.scm
@@ -37,7 +37,8 @@ USA.
 (define compile-file)
 (let ((scm-pathname (lambda (path) (pathname-new-type path "scm")))
       (bin-pathname (lambda (path) (pathname-new-type path "bin")))
-      (ext-pathname (lambda (path) (pathname-new-type path "ext")))
+      (ext-pathname (lambda (path) (pathname-default-type path "ext")))
+      (ext-pathname? (lambda (path) (equal? (pathname-type path) "ext")))
       (com-pathname
        (lambda (path)
 	 (pathname-new-type path (compiler:compiled-code-pathname-type)))))
@@ -94,9 +95,7 @@ USA.
 			   `((USUAL-INTEGRATIONS
 			      ,@compile-file:override-usual-integrations)
 			     ,@(let ((deps (keep-matching-items
-					    dependencies
-					    (lambda (item)
-					      (eq? #f (pathname-type item))))))
+					    dependencies ext-pathname?)))
 				 (if (null? deps)
 				     '()
 				     `((INTEGRATE-EXTERNAL ,@deps)))))))