From 3e09a0c2765c437512918af448ac567e0e866529 Mon Sep 17 00:00:00 2001 From: Christian Kellermann Date: Thu, 22 Sep 2011 23:41:30 +0200 Subject: [PATCH] Error out if given nonexistant egg name --- chicken-install.scm | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/chicken-install.scm b/chicken-install.scm index 5d1499f..9936344 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? (find-files 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) -- 1.7.2.5