From 50ddebdbd33130f0e92d4d0a353c6d5825dd43d1 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 25 Apr 2011 13:00:09 -0700 Subject: [PATCH] Fixed recent enhancement to compile-file. --- src/compiler/base/toplev.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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))))))) -- 2.25.1