~ 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