~ chicken-core (chicken-5) 1e0b774792c7ff83bde199bd0874ad162fa56409

commit 1e0b774792c7ff83bde199bd0874ad162fa56409
Author:     felix <felix@z.(none)>
AuthorDate: Fri Feb 25 09:32:31 2011 +0100
Commit:     felix <felix@z.(none)>
CommitDate: Fri Feb 25 09:32:31 2011 +0100

    slight simplifications in loading types files for requirements

diff --git a/batch-driver.scm b/batch-driver.scm
index 3fd44871..ecabddee 100644
--- a/batch-driver.scm
+++ b/batch-driver.scm
@@ -530,11 +530,7 @@
 		   (for-each (cut load-type-database <> #f) (collect-options 'types))
 		   (for-each
 		    (lambda (id)
-		      (and-let* ((tfile (##sys#resolve-include-filename 
-					 (make-pathname #f (symbol->string id) "types")
-					 #f #t))
-				 ((file-exists? tfile)))
-			(load-type-database tfile)))
+		      (load-type-database (make-pathname #f (symbol->string id) "types")))
 		    mreq)
 		   (begin-time)
 		   (set! first-analysis #f)