>From 2ba4f610c2848170020a375350bd8b6eb58aab1c Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Thu, 12 Jul 2012 20:41:56 +0200
Subject: [PATCH] Also call proc with three arguments in with-default-sources
 when there are no more sources to try

---
 chicken-install.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/chicken-install.scm b/chicken-install.scm
index 2674797..cf3dcf4 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -339,7 +339,7 @@
   (define (with-default-sources proc)
     (let trying-sources ([defs (known-default-sources)])
       (if (null? defs)
-          (proc #f #f)
+          (proc #f #f #f)
           (let* ([def (car defs)]
                  [locn (resolve-location
 			(cadr (or (assq 'location def)
-- 
1.7.9.1