~ chicken-core (chicken-5) 1d34b9410ec935588f33029911761a798e0c7b59

commit 1d34b9410ec935588f33029911761a798e0c7b59
Author:     Mario Domenech Goulart <mario@parenteses.org>
AuthorDate: Tue Mar 7 20:58:14 2017 +0100
Commit:     Mario Domenech Goulart <mario@parenteses.org>
CommitDate: Tue Mar 7 20:59:31 2017 +0100

    chicken-install.scm: avoid calling file-exists? on #f

diff --git a/chicken-install.scm b/chicken-install.scm
index 9ebd663d..9d4a9406 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -684,7 +684,8 @@
         ((let* ((ep (##sys#canonicalize-extension-path x 'ext-version))
                 (sf (find-in-repo 
                       (make-pathname #f ep +egg-info-extension+))))
-           (and (file-exists? sf)
+           (and sf
+                (file-exists? sf)
                 (load-egg-info sf))) =>
          (lambda (info)
            (let ((a (assq 'version info)))