From 70143023ba7831e7d7acbbf28cb6f45ed250acc3 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 9 May 2015 01:00:42 +0900 Subject: [PATCH] fixing missing repository-uri --- lib/chibi/snow/commands.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm index 386cc70d..9693ea97 100644 --- a/lib/chibi/snow/commands.scm +++ b/lib/chibi/snow/commands.scm @@ -1130,6 +1130,12 @@ (call-with-input-file (repository-local-path cfg repo-uri) read)))) +(define (get-repository-list cfg) + (let ((ls (conf-get-list cfg 'repository-uri))) + (if (pair? ls) + ls + (list (remote-uri cfg 'default-repository "/s/repo.scm"))))) + ;; returns all repos merged as a sexp, updated as needed ;; not to be confused with the current-repo util in (chibi snow fort) ;; which returns the single host @@ -1152,7 +1158,7 @@ (eq? 'url (car x)))) ls))) (let lp ((ls (map (lambda (x) (make-loc x 1.0 0)) - (conf-get-list cfg 'repository-uri))) + (get-repository-list cfg))) (seen '()) (res '())) (cond