~ chicken-core (chicken-5) 6b4e2b5b493e03c872f1d030357fc68fa7c26ceb


commit 6b4e2b5b493e03c872f1d030357fc68fa7c26ceb
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Mon Jul 23 11:23:40 2018 +1200
Commit:     Kooda <kooda@upyum.com>
CommitDate: Fri Jul 27 09:47:08 2018 +0200

    Use `directory-exists?' instead of `directory?' in chicken-status
    
    This just removes the program's dependency on the posix unit, in order
    to give it a slightly lighter footprint.
    
    Signed-off-by: Kooda <kooda@upyum.com>

diff --git a/chicken-status.scm b/chicken-status.scm
index 777b6f0d..565ddd4a 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -29,7 +29,6 @@
 	  (chicken base)
 	  (chicken condition)
 	  (chicken file)
-	  (chicken file posix)
 	  (chicken fixnum)
 	  (chicken foreign)
 	  (chicken format)
@@ -128,7 +127,7 @@
 			    list-width #t #\.))))
 
   (define (list-cached-eggs)
-    (when (directory? cache-directory)
+    (when (directory-exists? cache-directory)
       (for-each
        (lambda (egg)
 	 (list-egg-info egg (make-pathname cache-directory egg)
Trap