From 0b8bffe234dde019f459777d0a5eb3ea99b32601 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sun, 20 Mar 2011 19:37:12 +0100 Subject: Fix bug in error-handling code when release-info could not be retrieved --- henrietta-cache.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/henrietta-cache.scm b/henrietta-cache.scm index 3eea0ef..05d1925 100644 --- a/henrietta-cache.scm +++ b/henrietta-cache.scm @@ -123,7 +123,8 @@ EOF (fprintf (current-error-port) "Could not fetch release-info file for egg ~A from ~A\n" egg-name uri) - (flush-output (current-error-port))) + (flush-output (current-error-port)) + '()) (with-input-from-request uri #f read-file))) (define (update-egg-cache) -- cgit v1.2.3