~ chicken-core (chicken-5) 6653dce1dcbc7e08a001b25b439368829f60b59e

commit 6653dce1dcbc7e08a001b25b439368829f60b59e
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sun Mar 18 17:55:21 2018 +0100
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sun Mar 18 17:55:21 2018 +0100

    If cache dir does not exist, don't bail out with an error

diff --git a/chicken-status.scm b/chicken-status.scm
index a1aa03d7..5ab585b9 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -127,11 +127,12 @@
 			    list-width #t #\.))))
 
   (define (list-cached-eggs)
-    (for-each
-      (lambda (egg)
-	(list-egg-info egg (make-pathname cache-directory egg)
-		       +egg-extension+))
-      (sort (directory cache-directory) string<?)))
+    (when (directory? cache-directory)
+      (for-each
+       (lambda (egg)
+	 (list-egg-info egg (make-pathname cache-directory egg)
+			+egg-extension+))
+       (sort (directory cache-directory) string<?))))
 
   (define (gather-components lst mode)
     (append-map (cut gather-components-rec <> mode) lst))