~ chicken-core (chicken-5) 4f7d4325be091993afef88992043d3a7d19a749f

commit 4f7d4325be091993afef88992043d3a7d19a749f
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sat Mar 11 23:16:24 2017 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sat Mar 11 23:23:51 2017 +1300

    Load types.db file by filename when given with "-types" option

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 41370f1f..7845783d 100644
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -1708,7 +1708,7 @@
       (cond ((null? dirs) #f)
             ((file-exists? (make-pathname (car dirs) name)))
             (else (loop (cdr dirs))))))
-  (and-let* ((dbfile (locate)))
+  (and-let* ((dbfile (if (not path) (file-exists? name) (locate))))
     (debugging 'p (sprintf "loading type database `~a' ...~%" dbfile))
     (fluid-let ((scrutiny-debug #f))
       (for-each