~ 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