~ chicken-core (chicken-5) b6eba657c54c4099f1799d548cc1d6749d50aa9c

commit b6eba657c54c4099f1799d548cc1d6749d50aa9c
Author:     Christian Kellermann <ckeen@pestilenz.org>
AuthorDate: Thu Sep 22 23:41:30 2011 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Fri Sep 23 09:06:41 2011 +0200

    Error out if given nonexistant egg name

diff --git a/chicken-install.scm b/chicken-install.scm
index 5d1499f8..dfb5e392 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -426,7 +426,9 @@
               (let ((name (if (pair? egg) (car egg) egg))
                     (version (override-version egg)))
                 (let-values (((dir ver) (try-default-sources name version)))
-                  (unless dir (error "extension or version not found"))
+                  (when (or (not dir)
+                            (null? (directory dir)))
+                    (error "extension or version not found"))
                   (print " " name " located at " dir)
                   (set! *eggs+dirs+vers* (cons (list name dir ver) *eggs+dirs+vers*)) ) ) ] ) )
      eggs)